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IVTRAN  TRANSCRIBER 


General  Information 

The  transcriber  is  a  package  of  FORTRAN  routines  which  looks  at 
the  IVTRAN  internal  representation,  called  intermediate  language  or  inter- 
mediate  language  tables,  of  an  IVTRAN  program  and  outputs  the  corresponding 
IVTRAN  source  program.  The  package  consists  of  two  main  subroutines, 
TRNSCR  and  TSPECP  which  output  procedure  and  specification  statements 
respectively,  and  17  auxiliary  subroutines.  However,  one  call  to  TRNSCR 
will  output  an  entire  program.  The  total  size  of  the  package  is  about  6.2K 
words . 


The  Transcriber  is  particularly  useful  in  conjunction  with  the  Para- 
lyzer.  After  the  Paralyzer  has  made  its  transformations  on  the  original  IVTRAN 
program,  the  Transcriber  can  output  the  newly  created  program  in  standard 
IVTRAN  source  format.  The  output  file  can  then  be  edited  and  fed  back  to  the 
IVTRAN  compiler. 

The  transcriber  code  is  very  closely  linked  to  the  structure  of  the 
Intermediate  Language.  Knowledge  of  the  Intermediate  Language  tables  is 
essential  when  the  transcriber  code  is  examined. 

Subroutine  Descriptions 

In  the  descriptions  that  follow,  there  is  often  a  list  of  files  under 
the  heading  of  external  references.  These  are  files  which  contain  global 
information.  They  are  inserted  into  the  source  language  by  INSERT  prior  to 
compilation  of  the  routines. 
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PROGRAM  NAME:  TRNSCR  (SUBROUTINE) 


PURPOSE: 


To  output,  in  ASCII  FORTRAN  source  form,  a  complete 
IVTRAN  program. 


FUNCTION:  It  may  call  TDELIM  to  output  delimiter  lines.  Then  it 

calls  TSYMFX  to  fix  generated  symbols  and  TSPECP  to  output  specification 
statements.  Finally  it  outputs  all  procedure  statements. 


EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  CTAB.DEF,  CTAB.NIT,  LTAB.DEF,  LTAB.NIT, 
STAB.DEF,  CGLOB.DEF 

FUNCTIONS  -  L 

SUBROUTINES  -  TDELIM,  TSYMFX,  TSPECP,  TINTPR,  TCHOUT, 
TDOUT,  TINT,  TKONPR,  TCLPRT,  TSYMPR,  TLABFX 
COMMON  -  TRNSC 


SIZE:  1841  words 

CALLING  SEQUENCE:  CALL  TRNSCR  (NAME) 

NAME  (Hollerith)  the  name  which  is  used  if  the  delimiter  comment 
lines  are  printed.  These  lines  are  printed  only  if  the  global  variable,  LTRNF , 
is  set  to  1 . 


TECHNIQUES: 

TRNSCR  has  a  short  loop  which  follows  the  STATOP  chain  and  trans¬ 
fers  control  to  a  separate  piece  of  code  for  each  type  of  STATOP. 


The  IO  list  processor  can  combine  LABEL,  DO,  IODATA ,  and  IOFIN 

STATOPs  into  one  IO  list.  It  uses  a  stack  to  keep  track  of  nested  implied  DO 
loops. 


The  LOGICAL  IF  processor  is  able  to  handle  multiple  statements 
after  the  condition.  Even  though  this  isn't  legal  IVTRAN  input,  it  can  be 
generated  by  the  PARALYZER.  So,  if  there  is  only  one  statement  after  the 
condition,  the  standard  LOGICAL  IF  is  printed.  If  there  are  more  statements. 


the  negative  of  the  condition  is  printed  and  a  GO  TO  statement,  that  transfers 
control  past  the  multiple  statements,  is  printed  as  the  last  part  of  the 
LOGICAL  IF.  Even  though  this  modified  form  is  printed,  the  internal  structure 
of  the  LOGICAL  IF  is  not  changed. 

The  debug  processor  must  combine  several  different  types  of  STATOPs 
into  one  concatenated  debug  statement.  However,  since  each  of  these  STATOPs 
has  a  simple  linear  structure,  the  procedure  is  not  difficult. 

To  output  expressions  TRNSCR  uses  recursive  code*  to  walk  the 
tree  and  output  operands  and  operators  as  it  encounters  them.  It  uses  stacks 
to  keep  track  of  its  position  in  the  tree  and  other  pertinent  data.  IX  is  the 
index  into  these  stacks;  it  indicates  the  depth  of  the  current  position  in  the 
tree.  The  stacks  are: 

IRET  -  return  address  stack 

ICPT  -  pointer  CTAB  stack 

IPRES  -  operator  precedence  stack 

USPRN  -  IF  expression  parenthesized  stack 

IOPR  -  operator  stack 


*  Recursive  calls  are  implemented  via  the  ASSIGN  and  assigned  GO  TO 


statements . 


PROGRAM  NAME: 


TSPECP  (SUBROUTINE) 


PURPOSE: 


To  output  all  specification  statements. 


FUNCTION: 
COMMON,  OVERLAP 
EXTERNAL,  and  END 


It  outputs  PROGRAM  UNIT,  IMPLICIT,  TYPE,  DIMENSION 
,  EQUIVALENCE,  DEFINE,  DATA,  FORMAT,  FREQUENCY, 
statements . 


# 


EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  CGLOB.DEF,  STAB.DEF,  STAB. NIT,  XCTAB.DEF, 

XCTAB.NIT,  OTAB.DEF,  OTAB.NIT,  QTAB.DEF,  QTAB.NIT,  DTAB.DEF, 
D TAB, NIT,  FTAB.DEF ,  FTAB.NIT,  RTAB.DEF,  RTAB.NIT,  ETAB.DEF, 
ETAB.NIT,  LTAB.DEF,  LTAB.NIT 
FUNCTIONS  -  L,  TFIELD 

SUBROUTINES  -  TCLOUT ,  TINT,  TDOUT,  TCHOUT,  TDIMEN,  TCLPRT,  TSYMPR, 
TARRAY,  TDIM ,  TINTPR,  TKONPR 
COMMON  -  TRNSC 


SIZE:  1210  words 

CALLING  SEQUENCE:  CALL  TSPECP 
TECHNIQUES: 

The  code  is  very  straightforward,  but  descriptions  of  the  various 
tables  are  essential  to  understanding  it. 
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PROGRAM  NAME:  TKONPR  (SUBROUTINE) 


PURPOSE:  To  output  constants  (from  the  constant  table). 

FUNCTION:  It  looks  at  the  type  and  values  of  the  constants  to 

generate  the  output  characters.  It  uses  TDPREC  to  output  all  double 
precision  values. 

EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  KTAB.DEF,  KTAB.  NIT,  ETAB.DEF,  ETAB.NIT 
FUNCTIONS  -  L,  TFIELD 

SUBROUTINES  -  TINTPR,  TCHOUT,  TINT,  TDPREC,  TDIM,  TDIMEN 
COMMON  -  TRNSC 

FORTRAN  SUPPORT  -  ENCODE  for  integer  and  real,  FLOTA,  EXP 
SIZE:  631  words 

CALLING  SEQUENCE:  CALL  TKONPR  (KTBPNT,  NEGPRN) 

KTBPNT  (KTAB  pointer ,  integer)  pointer  to  the  KTAB  entry  which 

holds  the  specified  constant 

NEGPRN  (integer)  needed  for  integer,  double  integer,  real,  and 
double  precision  constants.  If  it  is  1,  as  opposed  to  0,  a  negative  value 
will  be  enclosed  in  parentheses. 

TECHNIQUES: 

To  output  double  integer  constants  TKONPR  creates  a  double 
integer,  power  of  ten  table.  Each  entry  in  this  table  consists  of  two  24  bit 
quantities  (the  same  way  the  constant  is  stored).  This  table  is  then  used 
to  generate  the  output  digits  one  at  a  time. 


PROGRAM  NAME:  TINT  (SUBROUTINE) 


PURPOSE:  To  output  a  group  of  characters,  ignoring  spaces  or 

asterisks,  which  must  not  be  split  between  lines. 


FUNCTION:  The  block  of  characters  to  be  sent  is  in  a  common  array 

TINT  makes  two  passes  through  this  array.  The  first  pass  counts  the  char¬ 
acters.  Then,  if  there  isn't  enough  room  on  the  current  line,  TINT  forces  a 
continuation  line  to  be  created.  The  second  pass  sends  the  characters. 

TINT  also  clears  the  input  array. 


EXTERNAL  REFERENCES: 
FUNCTIONS  -  T FIELD 
SUBROUTINES  -  TCHOUT 
COMMON  -  TRNSC 


SIZE:  129  words 

CALLING  SEQUENCE:  CALL  TINT-  (IFSPAC) 

IFSPAC  (integer).  If  this  variable  is  zero,  spaces  and  null  char¬ 
acters  will  not  be  sent.  If  it  is  I ,  asterisks  and  nulls  will  not  be  sent. 


TECHNIQUE: 


None 


PROGRAM  NAME:  TCHOUT  (SUBROUTINE) 


PURPOSE:  To  append  a  character  to  the  line  buffer. 

FUNCTION:  It  uses  the  character  pointer  to  place  the  character  in 

the  packed  array  (line  buffer).  If  a  continuation  line  is  needed,  it  sends  the 
current  line  and  starts  the  continuation  line.  TCHOUT  also  updates  the 
character  pointer. 

EXTERNAL  REFERENCES: 

SUBROUTINES  -  IVOUT,  TSBYT 
COMMON  -  TRNSC 

SIZE:  68  words 

CALLING  SEQUENCE:  CALL  TCHOUT  (CHAR) 

CHAR  (integer)  the  7-bit  ASCII  character,  right  justified,  which 
is  to  be  appended. 

TECHNIQUE:  None 
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PROGRAM  NAME: 


TCLOUT  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 


To  clear  the  line  buffer. 


It  resets  the  character  pointer 


and  clears  the  line  buffer 


EXTERNAL  REFERENCES: 
COMMON  -  TRNSC 


SIZE:  20  words 

CALLING  SEQUENCE: 
TECHNIQUE: 


CALL  TCLOUT 
None 


PROGRAM  NAME: 

PURPOSE: 

in  the  line  buffer. 


TDOUT  (SUBROUTINE) 

To  output  one  line  of  characters  which  have  been  stored 


FUNCTION.  It  sends  the  line  to  a  compiler  utility  routine  for  output, 

resets  the  character  pointer,  and  clears  the  line  buffer. 


EXTERNAL  REFERENCES: 
SUBROUTINES  -  IVOUT 
COMMON  -  TRNSC 


SIZE:  30  words 


CALLING  SEQUENCE:  CALL  TDOUT 


TECHNIQUE: 


None 


PROGRAM  NAME:  TIABFX  (SUBROUTINE) 


PURPOSE: 


To  convert  a  generated  label  into  a  legal  FORTRAN  label. 


FUNCTION:  ■  I.  takes  generated  labels .  whose  values  start  at  131072^ 

and  converts  them  into  generated  labels,  whose  values  s  a  a 
These  labels  are  later  printed  by  the  TRANSCRIBER  with  values  starting  at 
90000.  TLABFX  makes  sure  it  doesn't  generate  duplicate  labels. 


EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  LTAB.DEF,  LTAB.NIT 

FUNCTIONS  -  L 
SUBROUTINES  -  S 

SIZE:  67  words 

CALLING  SEQUENCE:  CALL  TLABFX  (LTBPNT.NLAB) 

LTBPNT  (LTAB  pointer,  integer)  points  to  label  table  entry  which 

contains  the  generated  label 

NLAB  (integer)  next  available  label  value 


TECHNIQUE: 


None 


PROGRAM  NAME:  TDPREC  (SUBROUTINE) 

PURPOSE:  To  output  a  double  precision  number. 

FUNCTION:  It  outputs  the  double  precision  number. 

EXTERNAL  REFERENCES: 

FUNCTIONS  -  T FIELD 

SUBROUTINES  -  TCHOUT,  TSBYT,  TINT,  TINTPR 

FORTRAN  SUPPORT  -  ENCODE  for  DOUBLE  PRECISION,  DOUBLE  PRECISION 
arithmetic 

SIZE:  276  words 

CALLING  SEQUENCE:  CALL  TDPREC  (EXP,  HIGH,  LOW,  CHARCT,  ICHAR) 

EXP  (integer)  binary  exponent  of  number 

HIGH  (integer)  sign  and  35  high-order  bits  of  fraction  in  two's 
complement  form 

LOW  (integer)  sign  and  35  low-order  bits  of  fraction  in  two’s 
complement  form 

CHARCT  (integer)  number  of  character  positions  left  on  line 
ICHAR  (integer  array  (10))  place  to  store  output  characters 

TECHNIQUE: 

Because  ILLIAC-IV  DOUBLE  PRECISION  numbers  have  a  much  larger 
legal  range  than  PDP-10  DP  numbers,  TDPREC  converts  the  DP  number  into  a 
PDP-10  number  between  .1  and  .999  ...  or  -  .  1  and  -  .999  . . .  and  an  integer 
base  ten  exponent.  These  numbers  are  then  encoded  and  sent  to  output 
routines. 
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PROGRAM  NAME:  TDELIM  (SUBROUTINE) 

PURPOSE:  To  output  a  delimiter  between  different  PARALYZER 

rewritings  of  the  same  program. 

FUNCTION:  It  outputs  a  three  line  delimiter  which  has  the  following 

form: 

C 

C  !  !  NAME 
C 

EXTERNAL  REFERENCES: 

FUNCTIONS  -  TFIELD 

SUBROUTINES  -  TCLOUT,  TCHOUT,  TDOUT 
SIZE:  60  words 

CALLING  SEQUENCE:  CALL  TDELIM  (NAME) 

NAME  (program  name,  Hollerith)  this  name  becomes  part  of  the 
delimiter . 

TECHNIQUES:  None 
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PROGRAM  NAME: 


TSYMFX  (SUBROUTINE) 


PURPOSE:  To  convert  any  compiler  generated  symbols  into  legal 

FORTRAN  symbols. 

FUNCTION:  It  transforms  all  symbol  names  of  the  form  %CCCCC  into 

the  form  TDDDDT,  where  the  C's  are  any  character  or  blank  and  the  D's  are 
decimal  digits.  It  also  sets  the  explicit  type  bit  if  T  is  not  implicitly  of  the 
same  type  of  the  symbol. 


EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  STAB.DEF,  STAB. NIT,  XCTAB.DEF,  XCTAB.NIT 
FUNCTIONS  -  L,  TFIELD 
SUBROUTINES  -  S,  TSBYT 

SIZE:  227  words 

CALLING  SEQUENCE:  CALL  TSYMFX 

TECHNIQUES:  None 
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PROGRAM  NAME:  TCLPRT  (SUBROUTINE) 


PURPOSE:  To  output  an  entry  name,  a  subroutine  name,  or  a 

function  name  with  its  associated  dummy  arguments. 

FUNCTION:  It  outputs  the  name  and  follows  pointers  to  the  ETAB 

and  back  to  the  STAB  to  get  the  dummy  arguments . 

EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  STAB.DEF,  STAB. NIT,  ETAB.DEF,  ETAB. NIT 
FUNCTIONS  -  L 

SUBROUTINES  -  TSYMPR,  TCHOUT,  TINT 
COMMON  -  TRNSC 

SIZE:  75  words 

CALLING  SEQUENCE:  CALL  TCLPRT  (STBPNT) 

STBPNT  (STAB  pointer,  integer)  pointer  to  the  STAB  entry  which 

contains  the  name  of  the  entry  point. 


TECHNIQUES: 


None 


PROGRAM  NAME:  TSYMPR  (SUBROUTINE) 


PURPOSE: 


To  output  a  symbol  name . 


FUNCTION-  It  uses  TFIELD  to  get  the  packed  SIXBIT 

FUNCTION.  ttnt  in  7-bit  ASCII  form, 

svmbol  name  and  passes  xt  on  to  TINT  in 


EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  STAB.DEF ,  STAB. NIT 
FUNCTIONS  -  L,  TFIELD 
SUBROUTINES  -  TINT 
COMMON  -  TRNSC 


SIZE: 


45  words 


CALLING  SEQUENCE:  CALL  TSYMPR  (STBPNT) 

STBPNT  (STAB  pointer,  integer)  pointer  to  the  STAB 


contains  the  name, 


TECHNIQUES: 


None 
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PROGRAM  NAME:  TINTPR  (SUBROUTINE) 

PURPOSE:  To  output  an  integer. 

FUNCTION:  It  uses  an  ENCODE  statement  to  get  the  ASCII 

characters  for  the  integer  and  calls  TINT  to  send  the  characters. 


EXTERNAL  REFERENCES: 

SUBROUTINES  -  TINT 
COMMON  -  TRNSC 

FORTRAN  SUPPORT  -  ENCODE  for  INTEGER 
SIZE:  26  words 

CALLING  SEQUENCE:  CALL  TINTPR  (NUMBER) 

NUMBER  (integer)  the  integer  to  be  output 


TECHNIQUES: 


None 


PROGRAM  NAME:  TDIMEN  (SUBROUTINE) 


PURPOSE:  To  output  the  extent  and  allocation  of  an  array. 

FUNCTION:  It  outputs  the  extent  and  allocation  of  an  array. 

EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  ETAB.DEF,  ETAB.NIT 
FUNCTIONS  -  L 

SUBROUTINES  -  TDIM ,  TCHOUT,  TINTPR 
SIZE:  104  words 

CALLING  SEQUENCE:  CALL  TDIMEN  (ETBPNT) 

ETBPNT  (ETAB  pointer ,  integer)  points  to  the  ETAB  entry  which 
contains  the  extent  and  allocation  data. 

TECHNIQUES:  None 
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PROGRAM  NAME:  TDIM  (SUBROUTINE) 

PURPOSE:  To  output  the  extent  of  an  array. 

FUNCTION:  It  outputs  the  constants  or  symbolic  names  which 

define  the  extent  of  an  array . 


EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  ETAB.DEF,  ETAB.NIT 
FUNCTIONS  -  L 

SUBROUTINES  -  TCHOUT,  TINTPR,  TSYMPR 
SIZE:  65  words 

CALLING  SEQUENCE:  CALL  TDIM  (ETBPNT) 

LTBPNT  (ETAB  pointer,  integer)  points  to  the  ETAB  entry  which 

contains  the  extent  data. 

TECHNIQUES:  None 
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PROGRAM  NAME:  TARRAY  (SUBROUTINE) 

PURPOSE:  To  output  some  simple  array  macros  for  the  DEFINE 

and  EQUIVALENCE  specification  statements. 

FUNCTION:  It  calls  various  routines  to  output  the  array  name  and 

subscripts .  The  only  types  of  subscripts  it  recognizes  are  integer  constant, 
$  constant,  $  constant  +  constant,  or  $  constant-constant. 

EXTERNAL  REFERENCES: 

FILES  -  TCOM.DEF,  CTAB.DEF,  CTAB.NIT 
FUNCTIONS  -  L 

SUBROUTINES  -  TSYMPR,  TCHOUT,  TKONPR,  TINTPR 
SIZE:  139  words 

CALLING  SEQUENCE:  CALL  TARRAY  (CTBPNT) 

CTBPNT  (CTAB  pointer,  integer)  points  to  the  CTAB  entry  which 
contains  the  ARRAY  EXOP. 


TECHNIQUES: 


None 


PROGRAM  NAME:  TFIELD  (INTEGER  FUNCTION) 


PURPOSE: 


To  extract  a  specified  bit  field  from  a  word. 


FUNCTION:  It  extracts  a  specified  bit  field  from  a  word  and 

returns  it  right  justified. 


EXTERNAL  REFERENCES:  None 


SIZE:  19  words 

CALLING  SEQUENCE:  I  =  TFIELD  (SWORD,  SBIT,  NBITS) 

SWORD  (source  word,  integer)  word  from  which  field  is  to  be  extracted 

SBIT  (start  bit  number,  integer)  bit  number  of  the  leftmost  bit  of 
the  field 

NBITS  (number  of  bits,  integer)  number  of  bits  in  the  field 
TECHNIQUES:  Written  in  MACRO- 10 
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PROGRAM  NAME:  TSBYT  (SUBROUTINE) 


PURPOSE: 


To  insert  a  specified  bit  field  into  a  word. 


FUNCTION:  It  inserts  a  value  into  a  specified  bit  field  of  a  word. 

EXTERNAL  REFERENCES:  None 


SIZE:  20  words 

CALLING  SEQUENCE:  CALL  TSBYT  (DWORD,  SBIT,  NBITS,  VALUE) 

DWORD  (destination  word,  integer)  word  into  which  field  will  be 

inserted. 

SBIT  (start  bit,  integer)  bit  number  of  leftmost  bit  of  field. 

NBITS  (number  of  bits,  integer)  number  of  bits  in  field. 

VALUE  (new  field  value,  integer)  right  justified  value  of  field 
to  be  inserted. 


TECHNIQUES: 


Written  in  •  MACRO- 10 


2. 


STORAGE  ALLOCATOR 


2.1  Introduction 

On  most  machines  array  allocation  is  trivial.  Successive  arrays  are 
merely  mapped  into  contiguous  one  dimensional  segments  in  core.  On  the 
ILLIAC-IV,  however,  arrays  are  mapped  into  rectangles  which  must  then  be 
allocated  within  ILLIAC-IV  memory.  Since  storage  is  two  dimensional,  al¬ 
location  is  not  nearly  as  simple  as  on  conventional  machines.  Indeed, 
because  of  physical  skewing  the  problem  actually  becomes  one  of  packing 
n-dimensional  solids.  The  restrictions  on  how  skewed  objects  can  be  packed 
together  makes  it  simplest  to  think  of  arrays  as  solids  which  can  be  packed 
into  solids  and  then  mapped  as  a  unit  into  ILLIAC  memory.  Mapping  each 
array  into  a  two  dimensional  object  and  then  trying  to  fit  those  objects  to¬ 
gether  would  be  a  very  unmanageable  task.  Consequently,  ILLIAC  data 
allocation  is  essentially  an  n-dimensional  packing  problem  (where  n  is  the 
highest  dimensionality  of  any  array  to  be  allocated) .  The  object,  of  course, 
is  to  pack  all  arrays  into  the  smallest  object  possible.  The  only  restriction 
on  the  object  is  that  one  of  the  extents  must  be  an  exact  multiple  of  the  num¬ 
ber  of  PE's  in  a  row  of  ILLIAC-IV  memory.  While  there  are  several  devious 

way1  doing  this,  it  is  doubtful  that  an  analytic  solution  or  even  an  optimum 
solution  exists. 


2 . 2  Overview 


The  description  above  implies  that  arrays  are  all  packed  into  one 
large  array.  Actually  arrays  are  packed  into  several  blocks  of  different  sizes, 
each  block  being  an  exact  multiple  of  PE  row  width  in  one  dimension.  Arrays 
are  currently  allocated  in  order  of  decreasing  size  (volume).  As  each  new 
array  is  encountered  a  list  of  available  holes  is  checked  to  determine  if  there 
is  any  place  where  the  array  will  fit.  If  there  is  a  place  for  the  array  then 
the  array  is  placed  in  the  smallest  available  spot.  If  there  is  no  hole  which 
will  contain  the  array  then  the  cost  of  expanding  a  hole  to  be  large  enough  for 


the  array  is  examined.  If  the  minimum  cost  is  less  than  that  of  putting  the 
array  in  a  new  block  then  the  hole  is  expanded  and  the  array  inserted.  Other¬ 
wise,  the  smallest  possible  block  that  will  contain  the  array  is  created  and 
the  array  is  placed  in  the  new  block. 

Note  that  once  an  array  is  allocated  its  position  is  not  substantially 
changed.  The  greatest  change  that  can  occur  is  merely  a  translation  in  one 
or  more  directions  for  the  purpose  of  expanding  holes.  Each  array  is  allocated 
in  such  a  way  as  to  minimize  the  cost  of  adding  the  array,  without  consid¬ 
eration  of  any  further  arrays  to  be  allocated.  This,  of  course,  does  not 
necessarily  produce  an  optimum  allocation  and  statistics  on  distribution  of 
array  sizes  could  be  very  useful  in  designing  schemes  for  dealing  with  inter¬ 
actions  between  storage  requirements.  These  statistics  would  be  very  easy 
to  gather  while  compiling  user  programs  and  some  provision  should  be  made 
for  obtaining  them  for  later  work.  Backtracking  could  also  be  useful  in  many 
situations  and  depending  on  how  expensive  allocation  is  for  typical  users 
some  backtracking  to  explore  particularly  hopeful  allocations  might  be  of  value. 


2.3  Conventions 

1)  Subroutine  Naming 

All  routines  which  are  part  of  allocation  itself  begin  with  the  letter 
A.  Auxiliary  debugging  or  data  gathering  routines  do  not  begin  with  A.  No 
other  subroutine  naming  conventions  exist. 

2)  Tables 

Allocation  makes  use  of  five  tables.  Four  of  these  are  used  to  keep 
information  required  by  allocation  and  the  fifth  (TBLPNT)  is  used  to  keep 
track  of  the  location  and  sizes  of  the  other  four  tables  —  TBLPNT  is  used 
when  the  other  tables  must  be  expanded.  The  four  main  tables  are: 

ARRAYTBL  —  The  array  table,  which  contains  the  original 

array  sizes  and  orientations. 


BLOCKTBL  —  The  block  table,  which  contains  descriptions  of 

each  block  resulting  from  allocation.  The  infor¬ 
mation  contained  includes  block  extents  and 
orientation  as  well  as  a  pointer  to  a  list  of  arrays 
contained  in  the  block. 

ALLTBL  ~  The  allocation  table.  This  table  contains  a  des¬ 

cription  of  each  array  which  has  been  allocated. 
Array  orientation  and  a  pointer  to  the  block  con¬ 
taining  the  array  are  kept  as  well  as  a  duplicate 
of  the  array  extent  information.  Each  element  in 
this  table  is  in  a  chain  which  has  its  root  in 
BLOCKTBL. 

HOLETBL  ~  The  hole  table.  This  table  maintains  information 

on  all  available  places  ("holes")  for  putting  arrays. 

These  four  tables  are  all  threaded  lists  with  fixed  size  entries.  Each 
table  actually  has  three  parts  associated  with  it: 

I.  The  table  header  -  which  keeps  information  like  the  number 
of  entries  in  the  table,  the  number  of  fields  in  an  entry,  the 
size  of  an  entry,  etc. 

II.  Table  byte  pointers  -  these  pointers  define  table  fields  by 
standard  IV- TRAN  compiler  conventions. 

III.  Working  storage  -  where  table  entries  are  actually  kept. 

,  Each  table  has  two  three  letter  prefixes,  one  for  referring  to  elements 

in  the  table  header  and  one  for  referring  to  byte  pointers.  These  prefixes, 
along  with  a  two  or  three  letter  suffix  are  used  for  naming  ail  table  parameters 
and  fields.  The  following  suffixes  are  used: 


I.  Common  to  all  table  headers 

CAP  —  CAPacity  of  the  table,  in  maximum  number  of 

entries  the  table  can  hold.  While  these  variables 
are  defined  they  are  not  used  by  allocation. 

NE  —  Number  of  Entries  contained  in  the  table.  These 
variables  are  kept  updated  but  are  not  used  by 
allocation.  They  are  kept  only  because  they  are 
interesting  statistics.  Conventions  on  updating 
this  count  are  somewhat  confused.  In  some  tables 
the  count  is  updated  immediately  after  an  entry 
is  removed  from  the  free  chain  while  in  others  it 
is  updated  only  when  an  entry  is  added  to  the 
active  chain. 

ELS  —  ELement  Size  -  the  size  of  an  entry  in  the  table. 

FRE  —  FREe  -  a  pointer  to  the  head  of  the  table  free  entry 

list. 

BYT  —  Number  of  BYTe  pointers  -  the  number  of  byte 

pointers  associated  with  the  table  (i.e. ,  the  num¬ 
ber  of  fields  in  the  table) . 

INC  —  INCrement  -  the  amount  by  which  to  expand  the 
table  when  more  space  is  needed. 

II.  Uncommon  header  suffixes 

HD  —  HeaD  -  this  is  an  anachronism  to  the  original 
design.  It  was  intended  to  point  to  the  start  of 
the  active  chain  in  each  table.  However,  entry 
zero  is  now  assumed  to  be  a  dummy  entry  at  the 
head  of  the  active  chain  in  each  table  except 
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ALLTBL  (which  is  pointed  to  by  BLOCKTBL 
entries)  and  thus  keeping  a  pointer  to  the  head 
of  the  chain  is  unnecessary.  These  variables 
will  probably  eventually  be  deleted. 


MXN  —  Maximum  Number  -  this  is  used  only  in  the  hole 
table  and  records  the  maximum  number  of  holes 
occurring  during  the  allocation. 

HI*  Byte  Pointer  suffixes  for  scalar  fields 


FST  (in  HOLETBL)  —  FirST  -  a  byte  pointer  to  the  first  word 
of  an  entry.  This  field  is  redundant  and  appears 
only  in  the  hole  table  (ABLFST  has  a  different 
meaning).  Normally  NXT  is  used  when  a  pointer 
to  the  first  word  is  desired  (the  NXT  field  always 
comes  in  the  first  word  of  the  entry) . 


""  This  fleld  indicates  whether  a  table  entry  is  in 

use  or  not.  This  field  is  not  used  by  allocation  but 
is  kept  updated  for  convenience  in  debugging.  This 
flag  is  set  to  one  when  an  entry  is  removed  from  the 
free  chain  and  is  set  to  0  when  the  entry  is  returned. 

—  NeXT  -  this  is  the  chain  field  and  points  to  the 
next  entry  in  the  chain  (each  table  has  two  chains, 
the  active  chain  and  the  free  chain,  with  entry  zero 
containing  a  pointer  to  the  first  element  in  the  ac¬ 
tive  chain) .  A  value  of  zero  indicates  the  end  of 
the  chain. 


SZE 


SiZE  -  this  field  exists  in  all  but  ALLTBL  and  is 
used  for  recording  the  size  of  the  array,  block,  or 
hole  as  the  case  may  be. 
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DIM  —  DIMension  -  this  also  occurs  in  all  but  ALLTBL 
and  records  the  dimension  of  the  structure  in 
question. 

ORG  —  ORiGin  -  this  occurs  only  in  ARRAYTBL  and  points 
back  to  the  table  (symbol  table  or  overlap  table) 
which  contained  the  original  definition  of  the  array. 

OVL  —  OVerLap  -  this  also  occurs  only  in  ARRAYTBL  and 
indicates  whether  the  array  occurred  in  an  overlap 
statement  or  not. 

BLK  —  BLocK  -  this  occurs  only  in  HOLETBL  and  records 
which  block  a  particular  hole  belongs  to. 

ID  —  IDentification  -  this  occurs  only  in  ALLTBL  and 

points  to  the  array  entry  in  ARRAYTBL  so  that  more 
information  about  the  array  can  be  extracted  if 
necessary. 

RMN  —  ReMaiNing  -  used  only  in  BLOCKTBL,  this  field 
records  the  amount  of  space  left  in  a  block. 

FST  (in  BLOCKTBL)  ~  FirST  -  this  field  appears  in  this  usage 
only  in  BLOCKTBL,  where  it  points  to  the  chain 
of  arrays  (in  ALLTBL  )  which  are  allocated  to  that 
particular  block. 

IV.  Byte  pointer  suffixes  for  vector  fields  —  these  fields  contain 
one  subfield  for  each  dimension.  Thus  L(PNT,  ALACRD  (5)  )  would  be  the 
fifth  coordinate  of  an  array  in  the  allocation  table. 


mummimm 
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EXT 


EXTents  -  these  contain  the  extents  of  the  appropriate 
structure  (array,  hole,  or  block) .  Extents  are  stored 
in  descending  order  by  size  and  do  not  imply  any 
specific  orientation. 

-  PeRMutation  -  this  describes  the  orientation  of  a 
structure.  For  example  L(PNT,  ARAPRM  (1)  ;  would 
give  the  index  of  the  extent  associated  with  ;hc 
first  dimension  of  array  PNT.  In  order  to  get  the 
first  extent  of  array  PNT  one  would  execute: 

IT  =  L (PNT,  ARAPRM  (1)  ) 

EXTENT  =  L(PNT,  ARAEXT  (IT)  ) 

CRD  —  CooRDinates  -  this  is  used  only  in  ALLTBL  and 
HOLETBL  and  gives  the  coordinates  of  point 
(0,  0,  . . . ,  0)  of  an  array  or  hole.  Coordinates 
are  relative  to  the  beginning  of  the  block  in  which 
the  structure  is  defined.  Coordinates  are  not  per¬ 
muted  so  that  the  field  CRD(I)  contains  the  I'th 
coordinate. 

The  prefixes  for  the  different  tables  are: 

ART  —  Array  table  header  entries 
ARA  —  Array  table  field  pointers 

AHT  —  Hole  table  header  entries 

AHL  —  Hole  table  field  pointers 
ALT  —  Allocation  table  header  entries 
ALA  —  Allocation  table  field  pointers 
ABT  —  Block  table  header  entries 
ABL  —  Block  table  field  pointers 
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^  Instrumentation  Conventions 

All  routines  in  the  allocation  package  begin  with  the  statement 
CALL  IENTRD  ('SUB  NAME') 

and  exit  with  the  statements 

CALL  I EXIT  ('SUB  NAME') 

RETURN 

where  sub. name  is  padded  with  spaces  to  at  least  six  and  not  more  than  10 
characters.  This  provides  a  convenient  handle  for  writing  trace  and  timing 
routines.  Currently  there  is  a  trace  and  a  statistics  package  included  with  the 
allocator  which  allows  optional  tracings  of  subroutine  entries  as  well  as  fre- 
quency  counts  and  execution  timing  histograms. 


4)  Table  Organization  Conventinng 


The  four  major  tables,  as  mentioned  above,  are  composed  of  chained 
entries.  All  tables  except  the  allocation  table  contain  two  chains,  an  active 
chain  and  a  free  chain.  Both  chains  use  the  same  entry  field  for  chaining.  The 
location  of  the  beginning  of  the  free  chain  is  stored  in  the  table  header  whereas 
the  location  of  the  first  entry  in  the  active  chain  is  stored  in  the  chain  field  of 

r  °a'  fT'  Zer°  iS  °therwlse  unused  (indeed'  a  Pointer  to  entry  zero  indicate, 
the  end  of  the  chain) .  ALLTBL  is  somewhat  different.  The  free  chain  is  still 

pointed  to  by  a  header  entry  but  ALLTBL  can  contain  several  active  chains, 
one  for  each  block  in  the  block  table.  Each  block  table  entry  points  to  the  begin¬ 
ning  of  a  unique  active  chain  in  ALLTBL  and  there  are  no  active  chain  pointers 
s  ored  in  ALLTBL  itself.  Entry  0  is  completely  unused  in  ALLTBL. 
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2.4  Table  Expansion 


These  routines  are  concerned  with  expanding  the  four  main  tables  when 
more  room  is  needed.  There  is  one  short  routine  for  each  of  the  four  tables 

(ARTEXP,  ALTEXP,  ABTEXP,  and  AHTEXP  for  ARRAYTBL,  ALLTBI,,  BLOCKTBL, 

and  HOLETBL  respectively)  which  does  nothing  but  call  ATBEXP  with  the 
address  of  the  appropriate  table  fields.  ATBEXP  calls  AEXPND  to  get  more 
space  immediately  following  the  specified  table.  It  then  calls  ACHAIN  to 

chain  together  the  new  entries  and  it  finally  updates  the  table's  free  chain 
pointer  and  the  table  capacity. 
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PROGRAM  NAME: 


ARTEXP 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
SIZE: 

CALLING  SEQ.: 
TECHNIQUES: 


To  expand  the  array  table. 


Calls  ATBEXP  with  appropriate  parameters  to 
expand  ARRAYTBL. 

ATBEXP 


Call  ARTEXP 


None 
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PROGRAM  NAME: 


ALTEXP 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
SIZE: 

CALLING  SEQ . : 


To  expand  the  allocation  table. 

Calls  ATBEXP.  with  appropriate  parameters  to 
expand  ALLTBL. 

ATBEXP 

Call  ALTEXP 


TECHNIQUES: 


None 


PROGRAM  NAME: 


ABTEXP 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

SIZE: 

CALLING  SEQ . : 
TECHNIQUES: 


To  expand  the  block  table. 

Calls  ATBEXP  with  appropriate  parameters  to 
expa  nd  BLO  CKTBL . 

ATBEXP 


Call  ABTEXP 


None 
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PROGRAM  NAME: 


AHTEXP 


PURPOSE: 

FUNCTION: 

FVTERNAL  REFERENCES: 
SIZE: 

CALLING  SEQ . : 
TECHNIQUES: 


To  expand  the  hole  table. 

Calls  ATBEXP  with  appropriate  parameters  to 
expand  HOLETBL. 

ATBEXP 


AHTEXP 

None 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
SIZE: 

CALLING  SEQ.: 


ATBEXP 

Allocation  TaBle  EXPansion 

To  expand  a  specified  table. 

ATBEXP  is  passed  the  table  name  as  an  ASCII 
constant,  a  field  pointer  to  the  entry  chain  field, 
and  pointers  to  the  table  capacity,  table  entry 
size,  free  chain  pointer,  and  table  increment  in 
the  table  header.  ATBEXP  calls  AEXPND  to  expand 
the  table  by  the  table  increment.  It  then  calls 
ACHAIN  to  chain  together  the  new  free  entries. 
After  returning  from  ACHAIN  it  checks  to  see  if 
entry  0  is  in  the  new  free  chain  and  if  it  is  the 
free  chain  pointer  is  made  to  point  entry  1  rather 
than  entry  0,  otherwise  the  free  pointer  is  left 
pointing  to  the  first  entry  in  the  newly  allocated 
space.  Finally,  ATBEXP  increments  the  table 
capacity  appropriately  and  returns. 

AEXPND,  ACHAIN,  S 


Call  ATBEXT  (TBLNAM ,  TBLCP,  TBLENS,  TBLFRE , 
TBLINC,  TBLCHN) 

Args: 

TBLNAM  -  2  word  ASCII  constant  containing  the 
table  name 


TBLCP 

TBLENS 

TBLFRE 

TBLINC 


-  table  capacity  in  the  table  header 

-  table  entry  size  entry  in  the  table  header 

-  free  chain  pointer  in  the  table  header 

-  table  header  entry  giving  the  proper 
amount  by  which  to  expand  the  table 
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TECHNIQUES: 


TblcHN  -  table  chain  field  pointer  -  used  for 
establishing  the  new  free  chain. 


It  is  assumed  that  if  after  expanding  the  table  the 
first  free  entry  Is  entry  aero  then  all  table  entries 
are  In  the  free  chain.  Consequently,  TBLFRE  Is 
made  to  point  to  entry  one  and  the  chain  field  of 


is  empty. 
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PROGRAM  NAME: 


AEXPND 

Allocation  EXPaND 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 


Expand  working  tables  for  the  allocator. 

AEXPND  finds  the  table  name  in  TBLPNT.  If 
it  can't  find  the  table  it  pauses  and  prints  out 
•BAD  CALL  TO  AEXPND' ,  if  this  happens  there  is 
a  definite  bug  in. the  allocator.  Upon  finding  the 
specified  name  AEXPND  expands  core  by  the 
necessary  amount,  indicates  the  increase  in  size 
in  TBLPNT,  moves  any  following  tables  down  in 
core  to  make  the  available  space  adjacent  to  the 
appropriate  table,  updates  the  byte  pointers  for  any 
table  moved  (using  TBLPNT  to  find  the  number  and 
location  of  the  byte  pointers  for  each  table)  and 
finally  zeros  the  newly  appended  table  space. 

XCORE ,  riX.  M  UP,  CSETZ 

TBLPNT  (an  array),  XCESS,  CO  REND 


Call  AEXPND  (NAME,  AM  NT) 

NAME  -  2  word  ASCII  constant  containing  the 

table  name 

AMNT  -  amount  by  which  to  expand  the  table. 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
SIZE: 

CALLING  SEQ.: 


TECHNIQUES: 


ACHAIN 

Allocation  Table  CHAINing 

To  chain  together  newly  acquired  table  free  space 

ACHAIN  is  given  the  first  and  last  address 
(relative  to  the  beginning  of  the  table)  of  a  new 
table  area  as  well  as  the  table  entry  size  and  a 
field  pointer  to  the  table  chain  field.  ACHAIN 

merely  chains  together  all  the  entries  in  the  new 
area . 

S 


0311  ACHAIN  (CHNFLD,  FSTFRE ,  LSTFRE,  ENTSZE) 


CHNFLD 

FSTFRE 

LSTFRE 

ENTSZE 


-  field  pointer  to  the  table  chain  field 
first  location  (relative  to  the  beginning 
of  the  table)  of  the  area  to  be  chained. 
~  last  location  of  the  area  to  be  chained 
~  size  of  a  table  entry. 


A  variable  (NXT)  is  set  equal  to 
FSTFRE  +  I  *  ENTSZE 
and  deposited  in  the  chain  field  of  entry 
FSTFRE  +  (I  -  1)  *  ENTSZE 
for  all  I  such  that 


FSTFRE  +  I  *  ENTSZE  <  =  LSTFRE. 


PROGRAM  NAME: 


MVUP 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
SIZE: 

CALLING  SEQ.: 

TECHNIQUES: 


To  copy  information  from  one  area  to  another, 
possibly  destroying  the  first  area  but  producing 
a  true  copy  even  if  the  first  area  overlaps  the 
second, 

MVUP  calculates  the  end  of  the  first  area  and  the 
end  of  the  second  and  then  copies  the  table  from 
the  end.  This  allows  the  first  area  to  overlap  the 
second  area  without  producing  garbage  (it  is 
assumed  that  the  first  area  starts  below  the  second 
area) . 

None 


CALL  MVUP 

FROM 

TO 

STOP 


(FROM,  TO,  STOP) 

-  first  word  of  first  area 

“  first  word  of  second  area 

-  last  word  of  second  area. 


None 
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Table  Manipulation  Routines 


These  routines  provide  a  standard  means  of  getting  free  table  entries, 
aduing  or  deleting  new  entries  for  tables,  etc.  The  routines  for  the  different 
tables  are  not  completely  analogous  since  some  tables  need  more  manipulation 
than  others.  The  tables  do  have  the  following  analagous  routines: 

AGTARY,  AGTALL ,  AGTBL ,  AGTHOL  —  gets  the  next  free  block  from 
the  free  chain  of  the  appropriate  table,  expanding  the  table 
if  necessary  and  in  some  tables  setting  the  entry  use  bit  and/ 
or  incrementing  the  table  entry  count. 

ARAADD,  ADDARY,  ADDBLK,  ADHOLE  —  adds  a  new  entry  to  the 
active  chain  of  the  appropriate  table.  In  some  tables  this 
routine  sets  the  use  flag  or  increments  the  entry  count,  rather 
than  the  routine  which  first  got  the  free  block. 

ADLBLK,  ALLRL3 ,  AHLRLS  —  release  a  table  entry  which  is  not  cur¬ 
rently  in  the  table  active  chain.  That  is,  put  the  entry  back 

on  the  free  list,  performing  any  necessary  bookkeeping  in  the 
process . 


Other  routines  covered  in  this  section  are: 


ADLTHL 

ADLHL2 

ARMHL 

ANWHL 

ACLRBL 

ABLCPY 


-  deletes  a  hole  entry  from  the  hole  table 

”  a  subroutine  of  ADLTHL 

“  removes  a  hole  from  the  active  chain  but  does 
not  return  it  to  the  free  chain 

-  creates  a  new  hole  to  go  with  a  new  block 

-  deletes  all  holes  belonging  to  a  specified  block 
(clears  the  block  of  holes), 

-  copies  an  entire  block,  along  with  all  the  arrays 
allocated  to  it  and  one  (and  only  one)  of  the 
holes  associated  with  it. 


-40- 


PROGRAM  NAME: 


AGTARY 

Allocation  -  Get  ARraY 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ-: 

TECHNIQUES: 


To  get  a  biock  from  the  ARRAYTBL  free  chain. 

AGTARY  makes  sure  the  free  chain  is  not  empty 
(it  calls  ARTEXP  if  the  chain  is  empty) .  It  then 
removes  the  first  block  from  the  free  chain,  and 
initializes  it  by  setting  all  extent  fields  (ARAEXT) 
to  one,  all  permutation  fields  I  to  I 
(I  .TO .  ARAPRM  (I)  for  all  1  <  =  I  <  =  N  where 
N  is  the  maximum  number  of  dimensions) .  AGTARY 
also  sets  the  ARAUSE  flag  to  one,  ARASZE  (tne 
array  size)  to  1,  and  sets  the  array  dimension 
(ARADIM)  to  the  maximum  allowable  dimension. 

ARTEXP,  S,  L 

ARTPRE,  ARANXT ,  ARAEXT,  ARAPRM,  ARASZE, 
ARAUSE,  ARADIM,  AMXDIM 


CALL  AGTARY  (NWARY) 

On  returning  NWARY  points  to  the  location  of 
the  newly  available  block. 

None 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 

TECHNIQUES: 


AGTALL 

Allocation  -  GeTALLocation  block 

To  get  the  next  block  from  the  ALLTBL  free 
chain. 

» 

AGTALL  insures  that  the  free  chain  is  not  empty 
by  calling  ALTEXP  if  necessary.  It  then  updates 
the  free  chain  pointer,  sets  the  use  bit  (ALAUSE) 
in  the  newly  extracted  block,  and  returns. 

ALTEXP,  S,  L 

ALTFRE,  ALAUSE 


CALL  AGTALL  (NWBLK) 

Upon  returning  NWBLK  points  to  the  newly 
extracted  block. 

None 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

GALLING  SEQ.; 


AGTBL 

Allocation  -  GeTBLock 


To  get  the  next  entry  from  the  BLOCKTBL  free 
chain. 


AGTBL  insures  that  the  block  free  chain  is  not 
empty,  calling  ABTEXP  if  necessary.  It  then 
extracts  the  first  entry  from  the  free  chain,  sets 

ABLUSE,  increments  ABTNE  (the  table  entry  count), 
and  returns. 

ABTEXP,  S,  L 

ABTFRE ,  ABTNE 


CALL  ABTBL  (NWBLK) 

On  returning  NWBLK  points  to  the  new  entry 
in  the  block  table. 


TECHNIQUES: 


None 


PROGRAM  NAME: 


AGTHOL 

Allocation  -  GeT  HOLe 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 

TECHNIQUES: 


To  get  the  next  entry  from  the  HOLETBL  free 
chain. 

AGTHOL  insures  that  the  free  chain  is  non¬ 
empty  --  calling  AHTEXP  if  necessary.  It  then 
extracts  the  first  entry  from  the  free  chain,  incre¬ 
ments  the  table  entry  count,  updates  AHTMXN, 
if  appropriate  (AHTMXN  is  the  maximum  number 
of  holes  —  a  variable  kept  only  for  information  on 
necessary  HOLETBL  size,  the  variable  is  unused 
in  the  ALLOCATOR) .  AGTHOL  also  zeros  out 
the  AHLEXT,  AHLPRM,  and  AHLCRD  fields. 

AHTEXP,  S,  L,  MAXO 

AHTFRE ,  AHLNXT,  AHTNE,  AHTMXN,  AMXDIM , 
AHLEXT,  AHLPRM,  AHLCRD 

CALL  AGTHOL  (NWHOLE) 

On  returning  NWHOLE  points  to  the  newly 
extracted  and  initialized  entry  block. 

None 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

SIZE: 

CALLING  SEQ . : 


ARAADD 
ArrAY  ADDition 

Add  an  array  entry  to  the  active  chain  of  the 
ARRAYTBL . 

Link  the  new  block  into  the  active  chain  be¬ 
tween  the  entries  zero  and  one  and  increment 
the  ARRAYTBL  entry  count. 

S,  L 

ARANXT ,  ARTNE 


CALL  ARAADD  (NWARY) 

Where  NWARY  points  to  the  array  entry  to  be 
added  to  the  chain. 


TECHNIQUES: 


None 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 

I 

TECHNIQUES: 


ADDARY 
ADD  ARray 

To  add  an  array  to  the  ALLTBL  active  chain 
associated  with  a  specified  block. 

The  block  pointer  pointing  to  the  chain  in 
ALLTBL  is  copied  to  the  chain  field  of  the  new 
entry  and  the  BLOCKTBL  pointer  is  then  up¬ 
dated  to  point  to  the  new  entry.  ALTNE  (number 
of  entries  in  ALLTBL)  is  incremented,  the 
ABLNAR  (number  of  arrays  allocated  to  the  block) 
field  in  the  BLOCKTBL  entry  is  incremented, 
and  the  ABLRMN  field  (the  amount  of  space 
remaining  in  the  block)  is  decremented  by  the 
size  of  the  new  entry  (currently  the  array  size 
is  calculated  but  this  is  unnecessary  as  the 
entry  contains  a  pointer  to  ARRAYTBL ,  if  the 
efficiency  of  this  routine  becomes  critical  the 
array  size  could  be  extracted  from  ARRAYTBL) . 

S,  L 

ABLFST ,  ALANXT,  ALTNE,  ABLNAR,  ABLDIM , 
ALAEXT,  ABLRMN 


CALL  ADDARY  (NWARY,  BLOCK) 

Where  NWARY  is  a  pointer  to  the  new  entry  in 
the  ALLTBL  and  BLOCK  is  a  pointer  to  the 
block  in  BLOCKTBL  to  which  the  array  is  being 
allocated. 

None 
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PROGRAM  NAME: 


ADDBLK 
ADD  BLocK 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 

TECHNIQUES: 


To  add  a  block  to  the  BLOCKTBL  active  chain. 

The  new  entry  is  merely  put  on  the  beginning  of 
the  chain  with  the  chain  fields  of  the  new  block 
and  of  entry  0  updated  appropriately. 

S ,  L 
ABLNXT 


CALL  ADDBLK  (BLKPNT) 

BLKPNT  should  point  to  the  entry  being  added. 
None 


1  • 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 

COMMON: 

SIZE: 

CALLING  SEQ.: 

I 

TECHNIQUES: 


ADHOLE 
Add  HOLE 

To  add  a  new  hole  to  the  HOLETBL  active  chain 
keeping  the  table  sorted  in  ascending  size  and 
insuring  that  no  hole  is  contained  in  any  other 
hole. 

The  HOLETBL  active  chain  is  searched  to  find 
the  first  hole  which  is  either  larger  (in  volume) , 
or  has  the  same  size  but  a  higher  dimension. 

When  this  spot  is  found  its  location  is  saved  and 
the  remainder  of  the  active  chain  is  compared 
against  the  new  hole  to  make  sure  that  the  hole 
is  not  contained  in  any  others.  If  the  hole  is  con¬ 
tained  ADHOLE  returns  immediately,  otherwise 
the  new  hole  is  added  into  the  list  at  the  spot 
found  earlier  and  the  AHLUSE  flag  in  the  entry 
is  set. 

L,  S,  AFLDCM,  ACNTAN 

AHLSZE,  AHLDIM ,  AHLBLK,  AHLNXT ,  AHLEXT, 
AHLCRD, AHLUSE 


CALL  ADHOLE  (HOLPNT) 

Where  HOLPNT  points  to  the  hole  to  be  added 
to  the  table. 

None 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 

TECHNIQUES: 


ADLBLK 

Allocation  -  DeLete  BLocK 

Delete  a  block  from  the  active  chain  in  BLOCKTBL. 

ADLBLK  clears  all  holes  associated  with  the  block 
by  calling  ACLRBL,  releases  all  arrays  in  ALLTBL 
which  were  allocated  to  the  block,  and  returns 
the  specified  block  to  the  BLOCKTBL  free  chain. 

It  is  assumed  that  the  specified  block  is  not  in 
the  active  chain  and  no  attempt  is  made  to  remove 
it  from  the  active  chain. 

ACLRBL,  ALLRLS ,  L,  S 

ABLFST,  ALANXT,  ABLNXT 


CALL  ADLBLK  (BLK) 

BLK  points  to  the  block  to  be  deleted  from 
BLOCKTBL. 

None 
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PROGRAM  NAME: 


ALLRLS 

Allocation  Block  ReLeaSe 


PURPOSE: 

FUNCTIONS: 

EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 

TECHNIQUES: 


To  return  an  allocation  block  to  the  ALLTBL 
free  chain. 

The  specified  block  is  merely  linked  back  into 
the  beginning  of  the  free  chain  and  ALTFRE  and 
the  entry  chain  field  are  updated  accordingly. 
The  entry  use  flag  ALAUSE,  is  also  reset. 

S,  L 

ALTFRE,  ALANXT,  ALAUSE 


CALL  ALLRLS  (ARRAY) 

Where  ARRAY  points  to  the  allocation  block 
being  released. 

None 


PROGRAM  NAME: 


AHLRLS 

Allocation  HOLe  ReLeaSe 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 


To  return  a  hole  to  the  HOLETBL  free  chain. 

AHLRLS  places  the  specified  hole  at  the  begin¬ 
ning  of  the  HOLETBL  free  chain,  decrements 
AHTNE,  and  resets  the  entry  AHLUSE  bit. 
AHLRLS  does  not  remove  the  hole  from  the  active 
chain  and  if  this  has  not  already  been  done  an 
error  will  result. 

S 

AHLUSE,  AHLNXT ,  AHTNE 


CALL  AHLRLS  (HOLPNT) 

Where  HOLPNT  points  to  the  hole  being  released 


TECHNIQUES: 


'  None 


PROGRAM  NAME: 


ADLTHL 

Allocation  DeLeTe  HoLe 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.: 

TECHNIQUES: 


To  remove  an  entry  from  the  HOLETBL  active 
chain  and  place  it  on  the  free  chain. 

ADLTHL  traces  through  the  active  chain  to  find 
the  hole  preceding  the  specified  hole  and  then 
calls  ADLHL2  to  actually  update  the  pointers 
which  transfer  the  hole  to  the  free  chain. 

ADLHL2 

AHLNXT 


CALL  ADLTHL  (HOLPNT) 

Where  HOLPNT  points  to  the  hole  to  be  deleted. 
None 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ .  : 


ADLHL2 

Allocation  DeLete  HoLe  2 


To  actually  transfer  a  hole  from  the  HOLETBL 
active  chain  to  the  free  chain. 

ADLHL2  changes  the  chain  field  of  the  hole  pro¬ 
ceeding  the  specified  hole  to  point  to  the  hole 
following  the  specified  hole.  It  then  puts  the  old 
hole  back  into  the  free  chain  by  calling  AHLRLS . 

S,  L,  AHLRLS 

AHLNXT 


CALL  ADLHL2  (HOLE,  PREV) 


PREV 

HOLE 


-  points  to  the  hole  preceding  HOLE 
in  the  active  chain 

-  points  to  the  hole  being  deleted. 


TECHNIQUES: 


None 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.: 


ARMHL 

Allocation  ReMove  HoLe 

To  remove  a  hole  from  the  HOLETBL  active 
chain  without  returning  it  to  the  free  chain. 

ARMHL  threads  through  the  active  chain  until 
it  finds  the  hole  preceding  the  specified  hole. 
It  then  updates  the  preceding  hole's  chain 
field  to  remove  the  hole  from  the  active  chain. 

S,  L 

AHLNXT 


CALL  ARMHL  (HOLE) 

HOLE  points  to  the  hole  to  be  removed . 


TECHNIQUES: 


None 


I 

I 

I 

1 
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I 
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I 
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PROGRAM  NAME:  ARMHL 

Allocation  ReMove  HoLe 

PURPOSE:  To  remove  a  hole  from  the  HOLETBL  active 

chain  without  returning  it  to  the  free  chain. 

FUNCTION:  ARMHL  threads  through  the  active  chain  until 

it  finds  the  hole  preceding  the  specified  hole. 
It  then  updates  the  preceding  hole's  chain 
field  to  remove  the  hole  from  the  active  chain. 

EXTERNAL  REFERENCES:  S,  L 

COMMON:  AHLNXT 

SIZE: 

CALLING  SEQ . :  CALL  ARMHL  (HOLE) 

HOLE  points  to  the  hole  to  be  removed. 

TECHNIQUES:  None 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.; 

TECHNIQUES: 


ACLRBL 

Allocation  CLeaR  BLock 


To  clear  all  the  holes  which 
block. 


belong  to  a  specified 


-  - ancj 

calls  AD1THL  on  all  holes  whose  AHLBLK  field 
Indicates  that  they  belong  to  the  specified  block! 


adlthl,  l 

AHLNXT,  AHLBLK 


CALL  ACLRBL  (BLK) 


Where  BLK  points  to  the  block  in 
which  is  to  be  cleared. 


BLOCKTBL 


None 
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PROGRAM  NAME: 


PURPOSE: 


FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 


SIZE: 

CALLING  SEQ . : 


TECHNIQUES: 


ABLCPY 

Allocation  BLock  CoPy 

To  copy  an  entire  block  along  with  all  arrays 
which  are  allocated  to  it  and  one  of  the  holes. 

ABLCPY  is  used  for  estimating  the  cost  of  expanding 
a  particular  hole,  and  only  this  hole  is  copied. 
Except  for  the  other  holes,  however,  the  entire 
block  structure  is  copied.  ABLCPY  gets  a  new 
block  entry,  copies  the  old  block  entry  to  the  new, 
threads  through  the  old  allocation  chain  and  creates 
a  new  chain  with  duplicate  entries,  adjusts  the 
new  block  entry  to  point  to  the  new  chain,  and 
finally  creates  a  new  hole,  copies  the  old  hole, 
puts  in  a  pointer  to  the  new  hole  to  the  new  block , 
and  adds  the  new  hole  to  the  hole  chain. 

AGTBL,  AMVENT ,  AGTALL ,  S,  L,  AGTHOL ,  ADHOLE 

ABLNXT,  ABTELS,  ABLFST ,  ALANXT ,  ALTELS  ,  AHLNXT , 

•  AHTFLS  ,  AHLBLK 


CALL  ABLCPY  (OBLK ,  NWBLK,  OHOLE,  NWHOLE) 
Entry  Values:  . 


OBLK 

OHOLE 


-  the  block  in  BLOCKTBL  to  be  copied 

-  the  hole  to  be  copied  with  the  block. 


Values  Returned: 


NWBLK 

NWHOLE 


-  a  pointer  to  the  newly  created  block 
copy 

”  a  Pointer  to  the  new  hole  copy. 


None 
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PROGRAM  NAME: 


ANWHL 

Allocation  -  NeW  HoLe 


PURPOSE: 

FUNCTION: 


Create  a  new  hole  the  same  size  as  a  new  block. 

ANWHL  gets  a  new  hole  entry  and  copies  the 
block  extents  and  permutation  vectors  as  well  as 
the  dimension ,  size,  and  block  number.  ANWHL 
then  calls  ADHOLE  and  adds  the  new  hole  to  the 
active  hole  chain. 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 


E,  S,  AGTHOL,  ADDHOLE 

ABLDIM,  AHLCRD,  ABLEXT,  AHLPRM ,  ABLPRM , 
AHLDIM ,  AHLSZE ,  AHLBLK 


CALLING  SEQ.: 


TECHNIQUES: 


CALL  ANWHL  (BLK,  HOLE) 


Entry: 

BLK 

Exit: 

HOLE 

None 


pointer  to  the  block  to  be  associated 
with  the  new  hole. 

-  pointer  to  the  newly  created  hole. 
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Logical  Functions 


There  are  four  logical  functions  In  the  allocator  and  they  are  all  con¬ 
cerned  with  testing  different  conditions  or  degrees  of  overlap  between  holes 
and  holes,  holes  and  arrays,  or  arrays  and  arrays.  The  functions,  In  more  or 
less  increasing  strength,  are:  AFLDCM ,  AOVLP,  ARAOLP ,  and  ACNTAN.  The 
functions  have  the  following  use: 

AFLDCM  —  tests  to  see  if  the  extents  of  one  structure  are  all  less 
than  or  equal  to  the  corresponding  extents  of  another 
structure.  This  does  not  really  test  for  any  overlap  con¬ 
dition  but  is  a  necessary  condition  for  one  structure  to 
be  entirely  contained  in  another.  Consequently,  this 
test,  which  is  relatively  fast,  is  often  made  to  decide 
whether  or  not  to  test  for  containment. 

AOVLP  -  this  determines  whether  an  array  overlaps  a  hole.  This 

is  used  to  decide  which  holes  must  be  updated  when  a  new 
array  is  allocated. 

ARAOLP  —  determines  whether  one  array  overlaps  another.  This 

condition  only  arises  while  holes  are  being  expanded  and 
is  used  to  determine  which  arrays  must  be  moved. 

ACNTAN  —  tests  to  determine  if  one  structure  is  totally  contained 
within  another  structure  of  the  same  type.  Currently, 
this  is  primarly  used  to  determine  if  a  new  hole  is  a  sub¬ 
set  of  an  already  existing  hole  in  order  to  avoid  creating 
duplicate  holes. 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES 
COMMON: 

SIZE: 

CALLING  SEQ . : 


AFLDCM 

Allocation  -  FieLD  CoMpare 

Compares  the  extent  of  two  arrays  or  holes  to 
determine  if  one  could  be  totally  contained  in 
the  other. 

Since  extent  fields  are  kept  in  order  of  decreasing 
extents  the  test  succeeds  iff  EXTENT  1  (I)  <  = 
EXTENT  2  (I)  for  all  I  <  =  DIM  where  DIM  and 
the  extent  field  pointers  are  passed  as  arguments. 
Since  the  field  pointers  are  passed  as  arguments 
holes  may  be  compared  to  arrays. 

L 

None 


RESULT  =  AFLDCM  (PNT1,  PNT2 ,  DIM,  EXTP1 ,  EXTP2) 


Args: 

PNT1 

-  pointer  to  first  structure 

PTN2 

-  pointer  to  second  structure 

DIM 

-  number  of  dimensions  to  compare 

EXTP1 

-  extent  field  vector  for  the  table  cor¬ 

EXTP2 

responding  to  PTN1 

-  extent  field  vector  for  the  table  cor¬ 

RESULT  IS 

responding  to  PNT2 

•  TRUE.  IFF  ALL  EXTENTS  OF  PNT1  are 

<  =  the  corresponding  extents  of  PNT2. 


TECHNIQUES: 


None 


PROGRAM  NAME: 


PURPOSE: 


FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 


SIZE: 

CALLING  SEQ.: 


TECHNIQUES: 


AOVLP 

Allocation  -  OVerLaP 

To  determine  if  an  array  intersects  (or  overlaps) 
a  hole. 

The  function  is  false  if  the  array  does  not  overlap 
the  hole  in  any  one  dimension.  Effectively  AOVLP 
computes  HLSTR  (I) ,  HLEND  (I) ,  ASTR  (I) ,  AEND  (I) 
where  HLSTR  (I)  is  the  smallest  coordinate  in  the 
hole  in  the  Ith  dimension  and  HLEND  (I)  is  the 
highest  and  ASTR  and  AEND  are  similar  for  arrays. 
AOVLP  is  false  iff  AEND  (I)  <  =  HLSTR  (I)  or 
HLEND  (I)  <  =  ASTR  (I)  for  some  I. 

L 

AHLDIM,  AHLCRD,  AHLPRM ,  AHLEXT,  A  LA  CRD, 

A  LA  EXT,  ALAPRM 


RESULT 

Args: 

ARRAY 

HOLE 

RESULT 


AOVLP  (ARRAY,  HOLE) 

-  pointer  to  an  array  in  ALLTB 

-  pointer  to  a  hole  in  HOLETBL. 

-  .TRUE.  IFF  the  array  overlaps  the  hole. 


The  permutation  vector  must  be  used  for  deter¬ 
mining  which  extent  is  associated  with  the  Ith 
dimension. 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.: 


ACNTAN 

Allocation  CoNTAiN 


To  determine  if  one  structure  is  totally  contained 
in  another. 

* 

This  is  similar  to  AFLDCM  except  that: 

1)  All  relevant  fields  are  passed  as  arguments  so 
that  two  arbitrary  structures  of  the  same  type 
(holes  and  holes  or  arrays  and  arrays)  may  be 
compared. 

2)  ACNTAN  is  true  iff 

S2  (I)  <  =  SI  (I)  <  =  El  (I)  <  =  E2  (I) 

where  SI  (I),  El  (I),  S2  (I),  E2  (I)  are  the 
first  and  last  locations  of  the  two  structures  in 
each  dimension.  In  ACNTAN  SI,  S2,  El,  E2  are 
not  actually  vectors  but  are  computed  and  tested 
for  each  dimension. 

L 

None 


RESULT  =  ACNTAN  (PNT1,  PNT2 ,  DIM,  COORD, 
EXTNT,  PERM) 


Args: 

PNT1 

PNT2 

DIM 

COORD 


-  pointer  to  first  entry 

“  Pointer  to  second  entry 

-  dimension  of  entries 

-  vector  of  coordinate  field  pointer 
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EXTNT 

PERM 

RESULT  is 


-  vector  of  extent  field  pointers 

-  vector  of  permutation  field  pointers. 

true  iff  PTN1  is  contained  in  PNT2. 


TECHNIQUES: 


The  PERM  vector  must  be  used  to  determine  the 
extent  corresponding  to  dimension  I. 


PROGRAM  NAME; 


araolp 

ARrAy  OverLaP 


PURPOSE: 

FUNCTION; 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.: 


TECHNIQUES: 


To  determine  if  one  array  overlaps  another. 

This  routine  is  called  after  translating  an  array 
which  has  already  been  allocated  to  determine 
whether  the  translation  has  resulted  in  the  array 
overlapping  any  other  array.  This  is  used  to 
determine  which  arrays  must  be  moved  when  ex¬ 
panding  a  hole .  The  test  for  overlap  is  performed 
in  the  same  way  as  in  AOVLP  except  that  all 
coordinates,  extents,  and  permutations  are  ex¬ 
tracted  from  the  allocation  table. 

L 

ALAPRM,  ALA  CRD,  ALAEXT 


RESULT  -  ARAOLP  (AR1 ,  AR2 ,  DIM) 


Args: 

AR1 

AR2 

DIM 

RESULT 


-  pointer  to  the  first  array  in  ALLTBL 

-  pointer  to  the  second  array  in  ALLTBL 

-  dimension  of  the  arrays. 

-  .TRUE.  IFF  the  arrays  overlap. 


None 
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Block  Structure  Manipulation 


These  routines  deal  with  adding  new  blocks,  taking  space  out  of 
existing  holes,  adding  arrays  to  an  allocation  for  a  paiticular  block,  etc. 
These  functions  involve  somewhat  more  than  mere  tabic  manipulation  and  are 
therefore  treated  here  rather  than  with  the  table  manipulation  routines.  The 
routines  covered  here  are: 

ACRBLK  ~  which  creates  an  entirely  new  block  along  with  a  new 
hole  to  match. 

ANWARY  -  which  puts  an  array  in  the  allocation  of  a  specified  block, 
in  the  process  taking  the  newly  occupied  space  out  of 
any  overlapping  holes . 


ASPLHL  —  which  takes  the  space  occupied  by  a  newly  allocated 

array  out  of  a  specific  hole,  often  creating  several  smaller 
holes  in  the  process, 

ARMSPC  —  removes  the  space  occupied  by  new  array  from  all  holes 
in  the  block  which  intersect  the  new  array. 

ASREXT  ~  a  utility  routine  which  sorts  the  extents  of  a  newly 

created  structure  (usually  a  hole),  into  descending  order. 

ASTPRM  —  a  utility  routine  whose  primary  purpose  is  to  find  the  in¬ 
verse  of  a  permutation  vector. 
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PROGRAM  NAME: 


PURPOSE: 


FUNCTION: 


EXTERNAL  REFERENCES: 


ACRBLK 

Allocation  -  CReate  BLocK 

To  create  a  new  block  and  hole  for  allocating 
arrays . 

* 

ACRBLK  is  given  an  array  which  must  fit  in  the 
new  block.  ACRBLK  calculates  which  extent  may 
most  efficiently.be  expanded  to  an  even  rowsize 
and  then  creates  a  block  with  the  same  extents 
except  for  the  one  expanded  dimension.  It  is  un¬ 
necessary  to  sort  the  block  extents  as  the  extents 
are  still  in  descending  order  even  after  expanding 
the  preferred  index.  After  it  has  been  decided 
which  extent  (say  J)  is  to  be  the  preferred  index, 
the  block  permutation  vector  is  filled  in  with 

PERM  (I)  =  I  FOR  ALL  I<>  1,  J 
PERM  (1)  =  J 
PERM  (J)  =  1. 

After  filling  in  all  necessary  fields  for  the  new 
block  ANWHL  is  called  to  create  a  hole  with  the 
same  extents  as  the  new  block  (since  no  arrays 
have  been  taken  from  the  new  block  all  of  its  space 
is  available)  and  both  the  hole  and  the  block  are 
added  to  the  appropriate  tables. 

AGTBL,  S,  L,  ANWHL,  ADDBLK 


COMMON: 


Block  table  field  definitions 


CALLING  SEQ.: 


CALL  ACRBLK  (DIM,  ARAPNT,  EXTFLD ,  HOLPNT) 
Args: 

DIM  -  dimension  of  the  block  to  be  created 

ARAPNT  -  table  pointer  to  array  to  be  fit  by 
.the  block 

EXTFLD  -  field  pointer  vector  for  the  extent 
fields  of  the  specified  array. 

Results: 

HOLPNT  -  points  to  the  location  of  the  newly 
created  hole. 


TECHNIQUES: 


None 


PROGRAM  NAME: 


PURPOSE: 


FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 


ANWARY 

Allocation  NEW  ARray 


To  put  an  array  In  the  space  occupied  by  a  par- 
ticular  hole. 

ANWARY  is  given  pointers  to  an  array  and  a  hole 
as  arguments.  ANWARY  determines  an  orientation 

o  the  array  which  allows  it  to  fit  in  the  hole.  It 
then  puts  the  array  in  the  allocation  table  and  adds 
‘  *°  th6  aUooati°n  Hat  for  the  appropriate  block, 
mally,  ANWARY  calls  ASPLHL  to  remove  the 
newly  allocated  ppace  from  the  hole. 

AGTALL,  ASTPRM,  S,  L,  ADDARY,  ASPLHL 

AU.TBL.and  ARRAYTBL  field  pointers.  INVPRM. 


SIZE: 


CALLING  SEQ.: 


TECHNIQUES: 


CALL  ANWARY  (ARAPNT ,  HOLPNT) 


Args: 

ARAPNT 

HOLPNT 


-  Points  to  the  array  (in  ARRAYTBL)  to 
be  allocated 

-  Points  to  the  hole  into  which  the 
array  is  placed. 


An  attempt  is  made  to  leave  the  largest  possible 
hole  after  allocating  the  new  array.  This  is  done 
y  Placing  the  largest  array  dimension  in  the 
smallest  possible  hole  dimension,  the  next  largest 
array  dimension  in  the  smallest  hole  dimension 
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still  available ,  etc.  Thus,  if  an  array  which 
was  16x5x4  was  taken  out  of  a  hole  which 
WfUs  32  x  16  x  5  then  the  array  would  be  oriented 
as  a  4x16x5  array  before  being  taken  out  of 
the  hole,  thus  leaving  one  hole  28  x  16  x  5 
whereas  if  the  array  were  allocated  as  a  16  x  5  x  4 
array  3  holes  would  result  (16  x  5  x  4,  32  x  16  x  1, 
32  x  11  x  5)  but  none  of  the  holes  would  be  as 
large.  It  is  hoped  that  trying  to  produce  the  largest 
possible  holes  will  in  general  produce  better 
allocations,  although  there  are  obviously  instances 
in  which  it  won't.  Some  sort  of  look  ahead  for 
deciding  the  proper  orientation  might  eventually 
be  useful. 
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PROGRAM  NAME: 


ASPLHL 

Allocation  -  SPLit  HoLe 


I 
I 

■  PURPOSE: 

I 

FUNCTION: 

I 

I 

1 


I 

1 

I 

I 

1 

g 

I 


To  remove  space  from  a  hole,  breaking  the  hole 
up  Into  several  smaller  holes. 

ASPLHL  is  given  a  pointer  to  an  array  in  ALLTBL 
and  a  hole  in  HOLETBL.  ASPLHL  first  calls 
AOVLP  to  insure  that  the  array  overlaps  the  hole. 

If  the  array  does  not  overlap  ASPLHL  merely 
returns.  If  the  array  does  overlap  ASPLHL  pro¬ 
ceeds  by  calling  ARMHL  to  remove  the  hole 
from  the  active  chain  without  adding  it  to  the  free 
chain.  This  is  done  so  that  subsets  of  the  specified 
hole  may  be  added  to  HOLETBL.  The  hole  is  not 
yet  added  to  the  free  chain  since  the  entry  can  not 
be  reused  until  the  hole  has  been  completely  split 
up.  At  this  point  ASPLHL  checks  the  endpoints 
of  the  array  against  the  endpoints  of  the  hole  in 
each  dimension.  ASPLHL  creates  one  new  hole  for 
each  pair  of  endpoints  which  do  not  correspond. 

Thus,  ASPLHL  could  possibly  produce  2  *  N  new 
holes  (where  N  is  the  dimensionality  of  the  array) . 
As  an  example,  assume  that  the  hole  starts  at 
(5,  10,  12)  and  has  extents  (7,  20,  4)  and  that 
the  array  starts  at  (6,  10,  12)  and  has  extents 

(3,  9,  4)  then  the  following  holes  would  be  pro¬ 
duced: 

Coordinates  Extents 

(5»  10,  12)  (1 ,  20,  4) 

(9,  10,  12)  (3,  20,  4) 

(5'  19'  12)  (7,  11,  4) 

After  all  new  holes  are  produced  the  original  hole  is 
released  (added  into  the  free  chain)  and  ASPLHL 
returns . 
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EXTERNAL  REFERENCES: 


AOVLP,  ARMHL,  AGTHOL,  AMVENT,  S,  L, 
ASREXT,  ADHOLE,  AHLRLS 


COMMON: 
CALLING  SEQ.: 

TECHNIQUES: 


HOLETBL  and  ALLTBL  field  pointers. 

CALL  ASPLHL  (ARRAY,  HOLE) 

Args: 

ARRAY  -  pointer  to  array  in  ALLTBL 

HOLE  -  pointer  to  the  hole  in  HOLETBL. 


None 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.: 

TECHNIQUES: 


ARMSPC 

Allocation  -  ReMove  SPaCe 

To  remove  space  from  all  holes  which  a  newly 
allocated  array  overlaps. 

ARMSPC  is  given  an  array  pointer  to  an  array 
in  ALLTBL  and  a  block  pointer.  ARMSPC  merely 
threads  through  the  hole  chain,  checking  to  see 
if  any  holes  in  the  specified  block  overlap  the 
specified  array.  If  they  do  ASPLHL  is  called 
to  break  up  the  hole. 

L,  AOVLP ,  ASPLHL 

AHLNXT,  AHLBLK 


CALL  ARMSPC  (ARRAY,  BLK) 


Args: 

ARRAY 

BLK 


points  to  an  array  in  ALLTBL 
pointer  to  the  block  to  which  the 
array  is  allocated. 


None 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.: 


TECHNIQUES: 


ASREXT 

Allocation  -  SoRt  EXTents 

To  get  extent  fields  in  descending  order. 

ASREXT  calls  ASTPRM  to  get  the  inverse  of  the 
permutation  vector.  It  then  sorts  the  EXTENT 
field  using  an  interchange  sort,  updating  the 
inverse  permutation  vector  along  with  the  extent 
fields.  After  the  sort  is  completed  ASREXT 
effectively  takes  the  inverse  of  the  modified  in¬ 
verse  permutation  vector  in  order  to  get  the  new 
permutation  vector. 

ASTPRM 

INVPRM 


CALL  ASREXT  (PNT,  PERM,  EXT,  DIM) 


Args: 

PNT 

PERM 


EXT 

DIM 


-  points  to  the  entry  to  be  sorted 

-  the  vector  of  permutation  field 
pointers  for  the  table  containing  the 
desired  entry 

-  the  vector  of  extent  field  pointers 

-  the  dimension  of  the  structure. 


Since  all  required  field  pointers  are  given  as 
arguments  ASREXT  may  be  used  to  sort  the  ex 
tents  of  any  structure  (hole,  array,  or  block). 
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PROGRAM  NAME: 


ASTPRM 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.: 


TECHNIQUES: 


To  take  the  inverse  of  the  permutation  vector  and 
to  set  the  WRK  array  to  .FALSE. 

ASTPRM  sets  all  entries  in  WRK  to  .FALSE. 

(This  array  is  used  in  ANWARY  to  keep  track  of 
when  an  extent  has  been  allocated)  and  establishes 
the  inverse  of  the  permutation  vector  in  INVPRM. 
This  is  done  by  setting  INVPRM  (PERM  (I)  )  -  I 
for  all  I. 

L 

WRK,  INVPRM 


CALL  ASTPRM  (ENTPNT,  PERM,  DIM) 

Args: 

ENTPNT  -  pointer  to  the  entry  containing  the 
permutation  vector 

PERM  -  field  pointer  for  the  permutation 

vector 

DIM  -  dimension  of  the  vector. 

None 
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2,8  Hole  Expansion 

Two  routines ,  ainft  a 

handing  holes.  AINFLI  is  a  recursive^'  Pr°Vlda  ^  meoha"^  to  «- 
dlrection.  AINFL8  cells  aznfT,  ' ! °U' ““  WhIch  °*Pands  the  hole  i„ 

ba;rnded  and  the"  updates  HOI xm  T  dlrectl0n  ln  whlcl>  the  hole  must"6 

ttImi  d0SS  -  the  hole  tab  J  ^  of  holls 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 

TECHNIQUES: 


AINFL8 

Allocation  -  INFLate 

To  expand  or  inflate  a  hole . 

• 

AINFL8  determines  how  much  the  specified  hole 
must  be  expanded  in  each  direction  to  fit  the 
desired  array.  It  then  calls  AINFL1  for  each 
direction  to  move  arrays  out  of  the  way  and  ex¬ 
pand  the  block.  After  moving  all  necessary 
arrays  it  deletes  all  holes  associated  with  the 
block  and  creates  one  new  hole  the  size  of  the 
entire  new  block.  It  then  calls  ARMSPC  for 
each  array  in  the  block  in  order  to  construct  the 
correct  list  of  holes. 

L,  S,  ASTPRM ,  AINFLl ,  ACLRBL ,  ARMSPC 
All  table  field  definitions,  INVPRM 


CALL  AINFL8  (ARY,  HOLE) 

Args: 

ARY  -  the  array  to  be  fit 

HOLE  -  the  hole  to  be  expanded  to  fit 

the  array. 

None 


-75- 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ . : 


AINFL1 

Allocation  -  INFLate  in  1  dimension 

To  expand  a  hole  in  one  dimension. 

AINFL1  creates  a  dummy  allocated  array  expanded 
appropriately  and  then  checks  to  see  if  the  array 
overlaps  any  other  arrays.  If  so,  the  offending 
arrays  are  translated  and  AINFL1REC  (the  recur¬ 
sive  part  of  AINFLl)  is  called  to  move  any  arrays 
which  overlap.  When  no  more  arrays  overlap 
then  AINFL1REC  either  pops  back  up  a  level  or 
returns  to  the  caller  if  it  is  already  at  level  0. 
When  AINFLl  returns ,  all  necessary  arrays  have 
been  translated  and  the  highest  coordinate  en¬ 
countered  is  recorded  for  use  by  AINFL8. 

AINFL1REC,  L,  S,  AG  TALL ,  AILRLS 

ALLTBL  and  HOLETBL  field  definitions . 


GALL  AINFLl  (HOLE,  DIR,  AM  NT ,  MAXCRD) 


Args: 

HOLE  -  the  hole  to  be  expanded 

DIR  -  the  direction  for  expansion 

AMNT  -  the  amount  to  expand. 


Results: 

MAXCRD  -  the  highest  coordinate  occupied 
by  any  array  moved. 


TECHNIQUES: 


None 


PROGRAM  NAME: 


A  COST 

Allocation  -  COST 


PURPOSE: 


FUNCTION: 


To  estimate  the  cost  of  putting  an  array  into  an 
existing  hole. 

Expanding  a  hole  will,  in  general,  expand  the 
block  which  contains  the  hole.  It  is  the  increase 
in  the  volume  of  the  block  which  determines  the 
cost  of  expanding  a  given  hole.  If  the  hole  is 
expanded  along  a  direction  in  which  the  hole  is 
not  "internal"  to  the  block,  then  the  block  must 
expand  by  the  same  amount  as  the  hole  (a  hole  is 
considered  internal  in  a  given  direction  if  the 
right  boundary  of  the  hole  occurs  before  the  right 
boundary  of  the  block  in  that  direction,  if  the  two 
boundaries  coincide  then  the  hole  is  not  con¬ 
sidered  to  be  internal) .  If  a  hole  is  internal  then 
the  block  may  be  expanded  less  than  the  hole. 

If  a  block  is  expanded  in  a  preferred  direction 
then  the  block  must  be  expanded  by  a  multiple  of 
'  ROWSZE  (the  number  of  PE's  in  a  row) . 

ACOST  compares  each  array  extent  with  the  cor¬ 
responding  row  extent  (largest  array  extent  com¬ 
pared  to  largest  hole  extent,  etc.).  If  the  hole 
must  be  expanded  in  some  direction  then  the  volume 
of  the  bloc):  must  be  multiplied  by  (new  extent)  / 
(old  extent)  (note  that  volume/(old  extent)  is  al¬ 
ways  an  integer)  r  if  the  hole  is  internal  then  the 
volume  is  additionally  multiplied  by  IFACT/100 
(IFACT  currently  is  95)  —  this  merely  means  that 
of  two  holes  which  are  nearly  the  same  size,  pref¬ 
erence  is  given  to  putting  a  new  array  into  an 
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EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.: 


internal  hole.  If  the  preferred  direction  must  be 
expanded  (which  implies  a  quantum  jump  in  block 
size)  then  ARLCST  is  called  (if  the  hole  is 
internal),  to  determine  the  exact  cost,  since  it 
may  turn  out  to  be  possible  to  expand  the  hole  for 
free.  If  no  expansion  in  the  preferred  direction 
is  necessary,  then  the  estimated  cost  is  merely 
the  increase  in  volume  resulting  from  expanding 
each  array  the  necessary  amount  multiplied  once 
by  IFACT/100  for  each  expansion  along  an  inter¬ 
nal  direction  (multiplication  by  IFACT  is  done 
before  the  increase  in  volume  is  measured) . 

ASTPRM ,  L,  ARLCST 

INVPRM ,  BLOCKTPL  field  definitions ,  HOLETBL 
field  definitions. 


CALL  ACOST  (ARAPNT,  HLEPNT,  COST) 

Args: 

ARAPNT  -  points  to  an  array  in  ARRAYTBL 
HLEPNT  -  points  to  a  hole  in  HOLETBL. 

Results: 

COST  -  estimated  cost  of  putting  the  array 

in  the  hole. 


TECHNIQUES: 


None 


PROGRAM  NAME: 


ARLCST 

Allocation  -  ReaL  CoST 


PURPOSE: 


FUNCTION: 


To  determine  the  exact  cost  of  putting  a  specified 

array  into  a  specific  hole. 

• 

ARLCST  makes  a  copy  of  the  block  containing 
the  specified  hole,  all  of  the  arrays  allocated  to 
the  block,  and  the  specified  hole  itself.  It  then 
calls  AINFL8  to  put  the  array  into  the  hole  in  the 
copy  and  records  the  increase  in  size  (if  the  in¬ 
crease  is  0  ARLCST  sets  the  cost  to  1  since  a 
cost  of  0  is  assumed  to  mean  the  array  fits  into  the 
hole  without  hole  expansion) .  Before  returning 
ARLCST  deletes  the  duplicate  blocks,  arrays, 
and  holes. 

There  are  several  improvements  which  could  be 
made  to  ARLCST.  First,  AINFL8  automatically 
recreates  all  the  holes  in  a  block  after  expanding 
a  particular  hole.  This  could  be  suppressed  for 
ARLCST  since  the  newly  created  holes  are  im¬ 
mediately  deleted.  Secondly,  and  of  more  interest 
to  the  allocation,  ARLCST  could  determine  the 
maximum  amount  the  hole  could  be  expanded  in  the 
preferred  direction  without  increasing  the  block 
size.  It  could  then  determine  if  any  of  the  extents 
of  the  array  would  fit  in  the  hole  as  so  expanded. 

If  so,  the  largest  possible  extent  would  be  placed 
in  the  preferred  direction.  The  remaining  extents 
would  still  have  to  be  placed.  This  could  be  done 
by  determining  MAXEX  (I)  (the  maximum  that  a  hole 
could  be  expanded  to  in  direction  I  without  expanding 
the  block,  once  the  hole  is  expanded  this  much 
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increasing  the  hole  size  by  one  would  increase 
the  block  size  by  one  also.  MAXEX  could  be 
determined  by  expanding  the  hole  by  a  very  large 
amount  and  then  determining  how  much  the  block 
expanded) .  After  determining  the  MAXEX  the 
array  extents  should  then  be  oriented  so  as  to 
minimize  the  product,  over  all  I  for  which  the  hole 
was  expanded,  of  the  factors  (EXTENT  (I)  -  MAXEX  (I))  / 
BLKEX  (I)  where,  only  I's  for  which 
EXTENT  (I)  -  MAXEX  (I)  >  0  are  considered  and 
where  EXTENT  (I)  is  the  extent  of  the  array  to  be 
put  in  the  Ith  direction  and  BLKEX  (I)  is  the  block 
extent  in  the  Ith  direction.  If  this  change  were  made 
the  optimum  orientation  would  have  to  be  communi¬ 
cated  to  the  calling  program. 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 


ABLCPY,  AINFL8 ,  L,  ADLBLK 

BLOCK TBL  and  HOLETBL  field  definitions 


CALLING  SEQ.: 


CALL  ARLCST  (ARAPNT,  HLEPNT,  COST) 


Arg: 

ARAPNT 

HLEPNT 


-  pointer  to  array  in  ARRAYTBL 

-  pointer  to  hole. 


Results: 

COST 


cost  of  putting  array  in  hole. 


i 


2.10  Allocation 


BAS,C  ALGORITHM  '  ^  THE 

ABOUT  IT  HERE.  ox.wm.Kfc,  LITTLE  WILL  BE  SAID 


t/ 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 
COMMON: 

SIZE: 

CALLING  SEQ.: 

TECHNIQUES: 


AL2 

Allocation  Number  2 
To  perform  an  allocation. 

For  each  array  AL2  calls  ACOST  to  determine 
the  cost  of  putting  an  array  in  each  of  the  existing 
holes.  If  the  estimated  cost  for  a  hole  is  zero  it 
is  assumed  that. the  array  fits  and  AL2  calls 
AFLDCM  to  verify  this.  If  the  array  does  fit 
ANWARY  is  called  to  put  the  array  in  the  hole. 

If  the  array  does  not  fit  in  any  hole,  then  AL2 
determines  whether  or  not  it  is  cheaper  to  create  a 
new  block  (and  hole)  or  to  expand  an  existing 
one.  If  AL2  expands  a  hole  it  then  goes  back 
and  searches  for  a  hole  which  will  fit  the  array 
again.  Since  there  now  exists  a  sufficiently  large 
hole  the  array  will  be  placed  and  AL2  will  go  on 
to  consider  the  next  array.  If  AL2  creates  a  new 
hole  it  immediately  takes  the  array  out  of  the  new 
hole.  Note  that  AL2  could  be  made  more  efficient 
when  expanding  holes  if  it  knew  where  the  newly 
expanded  hole  was  in  the  table.  This  information 
is  difficult  to  obtain,  nevertheless,  AL2  could 
still  be  improved  by  avoiding  the  call  to  ACOST 
(which  occassionally  makes  very  expensive  calls 
to  ARLCST  )  and  just  searching  for  the  hole  which 
contains  the  array. 

ACOST,  L,  AFLDCM,  ANWARY,  AINFL8 ,  ACRBLK 
HOLETBL  and  ARRAYTBL  field  definitions. 


CALL  AL2 


None 
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2.11  Auxiliary  Routines 


These  routines  (ASORT,  ASIZE,  ADDR,  AMVENT)  all  are  obvious 
tines  to  do  straightforward  but  necessary  functions: 


rou- 


ASORT 


sorts  ARRAYTBL  into  descending  size  so  that  the 
largest  arrays  will  be  allocated  first. 


ASIZE 


computes  the  size  of  a  structure  by  multiplying  the 
extent  fields. 


ADDR 


returns  the  address  of  a  word  so  that  word  pointers  may 
be  created  in  FORTRAN. 


AMVENT  -- 


copies  an  entry  from  one  spot  in  a  table  to  another  spot. 
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2.11  Initialization 


ALLINT  sets  up  tables  necessary  for  allocation. 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 
COMMON: 

CALLING  SEQ . : 
TECHNIQUES: 


ALLINT 

ALLocation  INiTialization 
Initialize  the  allocation. 


Zeros  all  tables,  obtains  some  initial  core  for 
tables,  initializes  byte  pointers  and  table 
headers.  Initializes  TBLPNT. 

SETFF,  XCORE,  CSETZ,  PFIX,  A  DDR 


Table  definitions,  TBLPNT,  ALLCTB ,  COREND, 
XCES  size . 

GALL  ALLINT 

None 
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‘WH  'III  Ul|i|M(*u* 


MACRO  EXPANSION 
Array  Referent 


This  section  discusses  the  array  access  formulations  required  bv 
the  macro  expansion  and  optimization  phases  of  code  select. 

The  skewed  storage  technique  described  in  the  first  semi-annual 
r„“Vhe  -  -erenoe.  1^“ 


An  element.  A  fa  i  <  \  A  *  * 

U1  '  V  °f  an  array.  A  (i  i  <  \ 

located  by  the  two  parameters  \  (PF  t  A  \  ,  1  2 '  *  ’  - V  ls 

parameters  ^  (PE  number)  and  ^  (PEM  displacement). 


Let: 


P  =  number  of  PE's 

Q  =  E  (1  -  l) 

J=1  j 


>  Define: 


TT* 

J=m, 


m.-l 

Rm,~  “I-’ 


(block  modulus) 


Then: 


=  Q  mod 

p 

*2  = 

%  -  u 

k-1 

k+i 

_  j 

V" 

mod  M 
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This  allocation  formula  implies  that  the  first  array  element  resides 
in  PE  O  at  displacement  O,  and  that  the  n^  index  is  the  preferred  index. 

We  must  extend  it  to  include  arbitrary  index  preferences  and  initial  locations. 
But  first,  examining  term  I  observe  that 


n-l  _  ,  n-1  a 

Z  (ik  "  1)  R  <  E  (ik  -  1) 
k=l  K  k+1  k=l  K 


n-l 

n-l  _  , 
_  _n—  l 

n-l 

«n-l 

E  R, 

-  E 

R 

k+1 

k=l  k 

k=l 

k+l 

n-l  Dn-1  _  nn-l 
1  “  Rn  "  R1 


now  t2  =  I  +  II  -  [  I+II/M  J  M 

l‘+%  J  ■  l  '/M  ♦  %  j 

4'V^  LQ/PJ>/fin  1 

L  l%| 

since  VRn-l  <  ^ 


I  V  +  LQ/p  -W 

L  /u  /fV/ 

■ 1  M'h,\ 1 


therefore  =  I 


+n  -  [M  /fVpi  j  m  ( 

><M  -  [Lq/pJ /  [  Vrl  ,  M 


thus  the  formula  reduces  to 


=  S  1  (iu  -  DR”"1  +  ( IQ/Pj  mod 

*  k=l  r  k+1 


f%]  >  *  *r' 


the  modulus  in  this  expression  being  much  easier  to  calculate  in  certain 
situations . 
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Let  us  assume  that  the  allocation  program  produces  a  permutation 
of  the  indices  which  orders  the  preferred  index  last.  This  permutation,  T, 
will  have  n  members  as  follows: 


T1  least  preferred  index  (in  usual  terms,  the  index  which 
varies  least  rapidly) 


Tn  "  Preferred  index 

It  Is  necessary  tc  assume  that  multi-indices  have  been  transformed 

into  the  appropriate  single  index.  We  can  now  write  a  more  general  allocation 
formula: 


A  (ir  i2 ,  •  •  •  /  in)  of  the  array  A  (ij ,  i£ ,  ...  y  is  located  by  the 


parameters  j t  ^  and  . 


Let:  Qq  -  PE  number  of  first  element  of  A 

L0  =  displacement  of  first  element  of  A 


P  =  number  of  PE's 


T  be  the  index  ordering 


Define :  R 


m. 


m, 


m„ 

=  it* 
j=ml 


,ml  -  l 


j  '  ml 


=  1 


«-2  =  ° 


n 


Q  *  Q  -  n  +  E 
0  J-l 


M 


■  rvi  rvi 

I  P  I  T, 
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Then: 


I 

I 

I 

I 

1 

I 

1 

I 

I 

I 

I 

I 


/j^QmodP 
n-1 

\'  m  ^h-1 

X,  =  L„  .+  L  (1T  -1)  R  n_1  +Rt 
2  °  J=1  TJ  TJ+X  1 

This  formula  can  also  describe  FORTRAN  standard  allocation  and 
aligned  indices  by  dropping  appropriate  forms.  The  macro  expander  and 
optimizer  are  designed  around  the  existence  of  an  allocation  program  which 
assigns  values  to  LQ,  Qq,  M  and  the  Rfi  skew  factors  for  each  array.  The 
macro  expander  uses  these  constants  to  replace  all  references  to  array  ele¬ 
ments  with  the  arithmetic  expressions  required  in  order  to  calculate  ILLIAC 
addresses,  and  the  optimizer  then  optimizes  the  resultant  expressions. 

We  expect  that  the  optimization  of  these  calculations  will  be  among  the  most 
fruitful  for  all  our  optimizations . 

The  macro  expander  deals  with  two  cases  —  array  element  refer¬ 
ences  occurring  in  sequential  code,  and  references  within  DO  FOR  ALL  scopes 
—  the  latter  being  the  crucial  case: 

1.  References  in  sequential  code: 

The  macro  expander  turns  each  reference  of  the  form  A  (i^  . . .  in) 
into  A  (Q,  J&2),  where  Q  and  31:6  the  expanded  forms  of  the  given 
formulas.  These  are  transformed  by  the  optimizer  by  moving  invariant  calcula¬ 
tions,  reducing  operator  strength,  etc.  The  technique  is  straightforward  and 
comparable  to  that  used  by  typical  FORTRAN  compilers 

2.  References  in  DO  FOR  ALL  scopes: 

The  problem  which  immediately  confronts  us  is  that  we  must  use  a 
technique  which  makes  the  simultaneous  calculations  made  by  all  enabled 
PE's  explicit  in  a  single  formula.  A  PE-dependent  function  and  certain  trans¬ 
formations  of  IVTRAN  programs  (in  intermediate  language)  gives  the  necessary 
formulations . 
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Macro  Expander  creates  a  DO  statement  Immediately  before  each 
DO  FOR  All  statement,  using  the  same  index  variable,  deriving  the  range  o 
the  DO  statement  from  the  control  set  of  the  DO  FOR  All,  and  using  an 

increment  of  64.  By  convention,  the  DO  statement  expresses  the  use  o  e 

index  variable  for  address  calculation  and  also  is  the  required  DO  statement 
if  the  range  of  the  DO  FOR  All  >  64.  The  DO  FOR  AH  statement  provides 
PE  control  information  and  defines  the  scope  of  parallel  operation. 

With  this  done,  we  may  pass  on  to. the  array  references  within  the 
scope  of  a  DO  FOR  All.  Each  reference  defines  a  slice  of  the  array  made  up 
to  P  members,  one  in  each  PE.  We  wish  to  express  the  calculation  in  eac 
PE  of  the  PEM  displacement  of  its  member  of  the  slice.  Note  t  at eac  s 
has  what  may  be  called  a  base  member  -  the  array  element  for  wluch  the  value 
of  Q  is  minimum.  This  value,  O’ ,  is  calculated  from  the  DO  index  varrables. 

If  the  DO  FOR  All  scope  is  controlled  by  a  DO  statement  of  the  form: 
DO  label  im  =  e2»  64 

where  e.  and  e  are  the  minimum  and  maximum  values  of  the  DO  FOR  ALL 
index  1  derived  from  the  DO  FOR  ALL  statement  itself:  then 

n 

Q.=Qo  —  n+*=1 

where  im  has  the  current  value  of  the  DO  index  variable  and  the  other  i,  are 
defined  outside  the  loop. 

Calculation  of  the  constants  appearing  in  the  access  formula  is 
handled  by  the  Allocator,  and  placed  in  an  IL  table  (YTAB) . 
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The  contents  of  each  entry  (one  per  array)  In  YTAB  will  include: 


Constant  Definition 

m  preferred  index  number  (Tn) 

Rj, »  k  =  o. .  .n  Rk  =  RTn  "  1 

Tk  +  1 


number  of  rows  to  hold  preferred  index 


PE  fudge  factor,  usually  =  Qq  -  n 
Allocator  techniques  may  introduce  further 
constant  factors 

j=n 


PEM  fudge  factor:  usually  Lj  =  Lq 


R 


j 


j=l 


but  some  allocation  technicques  may  introduce 
further  constant  factors. 

(Note:  the  Lq  above  will  probably  be  the  relative 
displacement  in  a  block  of  the  array,  and  the 
loader  will  supply  the  block  address.) 


The  expansion  of  array  references  in  the  intermediate  language  takes 
the  following  form: 


1 .  Replace  all  multi-indices  with  the  correct  single  index 


2. 


For  each  array  reference  in  sequential  code: 

a.  generate  the  following  IVTRAN  statement  preceding  the 

statement  containing  the  reference 
j 

Q =  Qf +  X  aj 


2.  b.  Replace  the  reference  A  (i^  ...  in)  with  A(A^  i^) 

where  and  are  above  expressions. 

Note:  1  j  and  £ ^  may  be  combined  into  a  single  CU 
address.  This  is  as  yet  unresolved. 


3. 


For  each  array  reference  in  parallel  code: 

a.  Generate  two  IVTRAN  statements  preceding  the  statement 

containing  the  reference,  as  follows: 

j 

Q  ■  +  2 


DQ  =  NPMOD  (Q) 

Replace  the  reference  A(i^. .  .in)  with  Ai^^), 
where 


=  Lf  + 


V 


DQ 


*  RDFA  +  Ro 


(tel-W) 


note:  NPMOD  may  be  defined  as: 

NPMOD  =  Q  mod  P  -  PENO 

IF  (NPMOD. LT.O)  NPMOD  =  NPMOD  +  P 
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B. 


Flow  Analyzer 


Introduction 

The  Flow  Analyzer  is  a  package  of  FORTRAN  routines  which  performs 
flow  analysis  of  IVTRAN  programs.  The  Flow  Analyzer  separates  the  IVTRAN 
program  in  flow  blocks  and  regions ,  and  builds  up  the  flow  block  and  region 
connectivity  matrix.  The  entire  package  is  designed  so  that  it  can  be  called 
at  any  point  of  the  compilation  process. 

Flow  blocks  are  contiguous  sets  of  statements  with  a  single  entry 
point  and  a  single  exit  point.  Regions  are  contiguous  sets  of  flow  blocks 
with  single  entry  and  exit  points. 

Flow  blocks  and  regions  are  recorded  in  a  table  (VTAB)  one  block  per 
entry.  The  connectivity  matrix  is  stored  in  the  IL  table  MATAB,  it  is  a  bit 
matrix:  C(I,  J)  =  1  if  control  can  transfer  from  block  I  to  block  J, 

C(I,  J)  =  0  otherwise.  Support  routines  exist  to  make  inquiries  in  the  con¬ 
nectivity  matrix. 


PROGRAM  NAME: 


MXPHP 


PURPOSE:  To  perform  flow  analysis  of  an  IVTRAN  program. 

FUNCTION:  Drives  program  to  separate  the  IVTRAN  program 

in  flow  blocks,  program  to  separate  IVTRAN 
program  in  regions,  and  program  to  build  the 
connectivity  matrices. 

EXTERNAL  REFERENCES:  MXFLOW,  MXREGN  ,  MXCOMA 

COMMON  REQUIREMENTS:  TCOM.DEF,  TABL  .EQ U ,  CGLOB . DEF 

SIZE: 

CALLING  SEQUENCE:  CALL  MXPHP 

TECHNIQUES:  None 


-95- 


PROGRAM  NAME: 


MXFLOW 


PURPOSE:  To  separate  IV TRAN  program  in  flow  blocks. 

FUNCTION:  Builds  flow  block  entries  in  VTAB,  one  entry 

per  flow  block.  Records  flow  block  number  in 
statement  level  CTAB  entries. 

EXTERNAL  REFERENCES:  CSETZ,  L,  S,  MXVOPN,  MXVCLS,  UCLNST 

COMMON  REQUIREMENTS:  TCOM.DEF,  CTAB.DEF,  VTAB.DEF,  LTAB.DEF 

SIZE: 

CALLING  SEQUENCE:  CALL  MXFLOW 

TECHNIQUES:  MXFLOW  traces  through  CTAB  at  the  statement 

level.  If  statement  starts  a  new  flow  block,  the 
current  entry  in  VTAB  is  closed  and  a  new  one 
is  initialized.  If  a  statement  ends  a  flow  block, 
the  current  VTAB  entry  is  closed  and  FLAG  is 
set,  indicating  that  the  successive  statement 
begins  a  new  flow  block. 
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PROGRAM  NAME: 


MX  COMA 


PURPOSE:  To  build  flow  block  connectivity  matrix. 

FUNCTION:  Builds  a  bit  matrix  in  MATAB  such  that 

C(I,  J)  =  1  if  control  transfers  from  flow  block  I 
to  flow  block  J,  C(I,  J)  =  0  otherwise. 

EXTERNAL  REFERENCES:  CSETZ,  EXTEND,  L,  MXMSET 

COMMON  REQUIREMENTS:  TCOM.DEF,  TABL.EOU,  VTAB.DEF,  MATAB. DEF 

SIZE: 

CALLING  SEQUENCE:  CALL  MX  COMA 

TECHNIQUES:  MXCOMA  looks  at  each  flow  block  entry  in 

VTAB.  For  each  flow  block,  the  last  statement 
of  the  flow  block  is  used  to  determine  which  flow 
blocks  can  be  reached  from  the  current  one. 


PROGRAM  NAME: 


MXVOPN 


PURPOSE:  To  open  a  flow  block  VTAB  entry. 

FUNCTION:  Stores  flow  block  number  and  pointer  to  first 

statement  in  flow  block  in  a  new  VTAB  entry. 

EXTERNAL  REFERENCES:  S,  EXTENT 

COMMON  REQUIREMENTS:  TCOM.DEF,  VTAB.DEF,  TABL.EQU 
SIZE: 

CALLING  SEQUENCE:  CALL  MXVOPN  (CNLX) 

CNDX  -  CTAB  pointer  to  first  statement  in 

flow  block. 

TECHNIQUES:  None 


I 
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PROGRAM  NAME: 


MXVCLS 


PURPOSE:  To  close  a  flow  block  VTAB  entry . 

FUNCTION:  Stores  CTAB  pointer  to  last  statement  in  flow 

block,  and  last  statement's  class  in  current 
VTAB  entry. 

EXTERNAL  REFERENCES:  S 

COMMON  REQUIREMENTS:  TCOM.DEF,  VTAB.DEF 

SIZE: 

CALLING  SEQUENCE:  CALL  MXVCLS  (CNDX,  CLASS) 

CNDX  -  CTAB  pointer  to  last  statement 

in  flow  block 

CLASS  -  statement  class  of  last  statement 

in  flow  block. 

CLASS  =  1  :  GOTO ,  AGOTO ,  CGOTO 
AIF  ,  LIF2  ,  LIF 

CLASS  =  2  :  RETURN,  END,  STOP 
CLASS  =  3  :  CALL 

CLASS  =  4  :  terminal  statement  of  DO  (DFA) 
range 

TECHNIQUES:  None 


-99- 


PROGRAM  NAME: 


MXMSET 


PURPOSE:  To  set  to  one  C(I,  J)  ,  where  C  is  the 

connectivity  matrix. 

FUNCTION:  Sets  a  bit  in  MATAB. 

EXTERNAL  REFERENCES:  MXMTST,  L,  S 

COMMON  REQUIREMENTS:  TCOM.DEF,  MATAB. DEF,  VTAB.DEF 


SIZE: 


CALLING  SEQUENCE:  CALL  MXMSET  (BF  ,  BT) 

BF  -  block  number  control  may  transfer 

from 

BT  -  block  number  control  may  transfer 

to 


TECHNIQUES: 


None 


PROGRAM  NAME: 


MXMTST 


PURPOSE: 


FUNCTION: 


To  test  whether  control  may  flow  from  one  flow 
block  to  another.  The  value  of  the  function  is 
.TRUE,  if  the  test  succeeds,  .FALSE,  if  the 

test  fails. 


Tests  a  list  in  the  connectivity  matrix. 


EXTERNAL  REFERENCES:  L 

COMMON  REQUIREMENTS:  TCOM.DEF,  MATAB.DEF,  VTAB.DEF 


SIZE: 

CALLING  SEQUENCE:  MXMTST  (BF  ,  BT) 

BF.  _  flow  block  number  control  is  to 

transfer  from 

BT  -  flow  block  number  control  is  to 

flow  to . 


TECHNIQUES: 


None 
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PROGRAM  NAME: 


MXMTO 


PURPOSE:  To  extract  from  the  flow  block  connectivity 

matrix  all  the  numbers  of  the  flow  blocks  which 
may  transfer  control  to  a  specified  flow  block 
(i.e.  -  all  I's  such  that  C(I,  J)  =1  for  a 
given  J) . 

FUNCTION:  Stores  flow  block  numbers  in  an  array  passed 

in  the  calling  sequence. 

EXTERNAL  REFERENCES:  L 

COMMON  REQUIREMENTS:  TCOM  .DEF ,  MATAB.DEF,  VTAB.DEF 

SIZE: 

CALLING  SEQUENCE:  CALL  MXMTO  (BT,  ARRAY) 

BT  -  flow  block  number  transferred  to 

ARRAY  -  array  used  to  store  all  flow  block 

numbers  which  can  transfer  con¬ 
trol  to  BT.  A  -1  is  stored  in 
ARRAY  following  the  last  block 
number. 

TECHNIQUES:  None 
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PROGRAM  NAME: 


MXMFRM 


PURPOSE:  To  extract  from  the  flow  block  connectivity 

matrix  all  the  numbers  of  the  flow  blocks  which 
can  be  reached  from  a  specified  flow  block 
(i.e.  -  all  J's  such  that  C(I,  J)  =  1  for  a 
given  I) . 

FUNCTIONS:  Stores  flow  block  numbers  in  an  array  passed 

in  the  calling  sequence. 

EXTERNAL  REFERENCES:  L 

COMMON  REQUIREMENTS:  TCOM  .DEF ,  MATAB.DEF,  VTAB.DEF 

SIZE: 

CALLING  SEQUENCE:  CALL  MXMFRM  (BF,  ARRAY) 

BF  -  flow  block  number  to  transfer  from 

ARRAY  -  array  used  to  store  all  flow  block 

numbers  which  can  be  transferred 
to  from  flow  block  BF.  A  -1  is 
stored  in  ARRAY  following  the  last 
flow  block  number. 

TECHNIQUES:  None 


c. 


Macro  Expansion  -  Phase  B 


Macro  Expansion  -  Phase  B  (MXPHB)  has  been  completed  and  de¬ 
bugged.  MXPHB  has  served  as  a  test-bed  for  the  debugging  of  the  Macro 
Expansion  support  package  documented  elsewhere . 

MXPHB  transforms  all  implied  loops  in  the  IVTRAN  program  into 
explicit  loops.  An  implied  loop  exists  whenever  an  array  reference  appears 
(with,  an  asterisk  appearing  in  one  or  more  index  positions)  or  when  an  array 
name  appears  without  an  index  expression,  implying  an  asterisk  in  every 
index  position. 

MXPHB  locates  all  array  references  in  the  program  by  using  the  LINK 
chain  associated  with  each  array  name.  When  an  array  reference  is  found  in 
which  one  or  more  asterisks  appear,  MXPHB  locates  all  other  matching  array 
references  in  that  statement,  then  creates  a  DO  FOR  ALL  statement  with  the 
original  IVTRAN  statement  as  its  scope,  and  replaces  one  asterisk  in  each 
reference  with  the  DO  FOR  ALL  index.  If  asterisks  still  exist,  the  DO  FOR  ALL 
-  IVTRAN  statement  pair  is  nested  in  a  DO  loop  with  the  DO  index  replacing 
another  asterisk.  This  process  continues  until  all  asterisks  are  replaced. 

MXPHB  copies  all  LINK  chains  in  a  work  area  (W TABLE) .  It  then 
examines  each  array  reference  in  CTABLE,  and  if  the  entry  contains  no 
asterisks,  the  LINK  copy  in  WTAB  is  deleted.  When  an  asterisk  is  found, 
explicit  loops  are  created  as  above,  and  then  the  appropriate  LINK  copies  are 
deleted.  When  all  entries  in  WTAB  become  zero,  MXPHB  is  done. 

When  an  array  reference  has  more  than  one  asterisk,  the  first  one 
encountered  is  replaced  by  the  DO  FOR  ALL  index.  This  naive  approach  will 
be  replaced  in  MXPHB  veision  2 .  Creation  of  multi-indices  will  be  considered 
at  the  same  time . 


The  root  program  for  Macro  Expansion  (MX)  and  Macro  Expansion 
Phase  B  (MXPHB) ,  with  attendant  sub-programs,  are  documented  below.  The 
naming  convention  for  the  programs  is: 

1st  letter  -  M 

2nd  letter  -  phase  letter,  or  U  if  used  by  more  than  one  phase 

3rd  letter  -  action  taken  (e.g.,  L  -  locale) 

4th  -  6th  letter  -  rough  mnemonic  for  operand  (s) 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


MBISEX  (LOGICAL  FUNCTION) 


Is  this  an  explicit  array  reference? 


CNDX  must  be  an  OPRAND  pointing  to  an  ARRAY 
element  in  STAB.  If  CNDX  is  the  first  OPRAND 
of  an  ARRAY  EXOP,  and  if  none  of  the  other 
OPRAND' s  in  the  EXOP  are  asterisks 
(CTABL.EQ. ASTER)  then  MBISEX  TRUE. ,  else 
MBISEX*-  .FALSE.  Error  trap  on  improper 
argument. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  STAB.DEF, 
TABL.EQU,  NOYES. EQU 

ROUTINES:  L,  UEHALT,  UCLCNH 
TCOM,  CTABLE ,  STABLE 
MBISEX  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


MBISRF  (LOGICAL  FUNCTION) 

Is  this  an  array  reference? 

If  CTABLE  element  CNDX  occurs  in  an  ARRAY  FXOP, 
MBISRF ♦-  .  TRUE . ,  else  MBISRF  «-  .  FALSE . 

INSERTS:  TCOM.DEF,  CTAB.DEF 

ROUTINES:  L,  UCLCNH 

TCOM,  CTABLE 

MBISRK  (CNDX) 
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PROGRAM  NAME: 


MBLNAS  (INTEGER  FUNCTION) 


PURPOSE: 

Locate  next  asterisk. 

FUNCTION: 

CNDX  must  be  an  ARRAY  EXOP  with  at  least  one 
asterisk  in  its  index  list.  MBLNAS  is  set  to  the 
index  value  of  the  first  OPRAND  in  the  list  for 
which  CTABL.EQ .ASTER.  Error  trap  on  improper 

argument  or  no  asterisk. 

EXTERNAL  REFERENCES: 

INSERTS:  TCOM.DEF,  CTAB.DEF,  TABL.EQU, 
NOYES. EQU 

ROUTINES:  L,UEHALT 

COMMON: 

TCOM ,  CTABLE 

CALLING  SEQUENCE: 

MBLNAS  (CNDX) 

TECHNIQUES: 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


MBMARF  (SUBROUTINE) 

Make  array  reference. 

CNDX.  is  an  OPRAND  pointing  to  an  ARRAY  element 
in  STAB,  but  CNDX  does  not  appear  in  an 
ARRAY  EXOP.  Replace  this  OPRAND  with  an 
ARRAY  EXOP  whose  first  OPRAND  points  to  the 
same  STAB  elements ,  and  whose  entire  index 
list  is  asterisks. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  STAB.DEF, 
TABL.EQU,  NOYES.  EQU 

ROUTINES:  L,  S,  UCMSKE,  UCMCPY,  USDLNK, 
UCBOPR,  USUWCY 

TCOM,  CTABLE,  STABLE 

CALL  MBMARF  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 


MBRPAS  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Replace  asterisk  with  scalar. 

WNDX  is  the  index  in  WTAB  of  a  list  of  array 
references  in  CTAB.  Replace  the  first  asterisk 
in  each  of  these  with  a  reference  to  the  INT 
SCALAR  at  SNDX  in  STAB. 

INSERTS:  TCOM.DEF,  WTAB.DEF,  TABL.EQU 
ROUTINES:  L,  MBLNAS,  UCBOPR 


CALL  MBRPAS  (WNDX,  SNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


MBRXTN  (INTEGER  FUNCTION 

Return  extent  of  asterisk  index. 

CNDX  is  an  array  EXOP  with  at  least  one  asterisk 
in  its  index  list.  Locate  the  first  asterisk  and 
find  the  extent  of  the  index  -  available  in  the 
ETAB  element  associated  with  the  STAB  entry  for 
this  array.  Errop  trap  on  improper  argument,  no 
asterisk  or  adjustable  extent. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  STAB.DEF, 
ETAB.DEF,  TABL.EQU 

ROUTINES:  L,  UEHALT 

TCOM,  CTABLE ,  STABLE,  ETABLE 

MBRXTN  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


MULRFS  (SUBROUTINE) 


Locate  array  references  in  statement. 

Locate  all  the  ARRAY  EXOP's  containing  asterisks 
In  the  IVTRAN*  statement  containing  CNDX.  Make 
a  list  of  these  EXOP's  In  WTAB,  and  set  WNDX  to 
the  Index  of  the  list.  Error  trap  on  bad  program 
structure  or  stack  overflow. 


INSERTS:  TCOM.DEF,  CTAB.DEF,  WTAB.DEF 
NOYES. EQU 


ROUTINES:  L,  S,  UEHALT,  UCLTST,  UCLSTO, 

UGZSTK,  UGPUSH,  UGPOP,  MBISEX,  UWDLNK 
UGTELM 


TCOM/  CTABLE ,  WTABLE 
CALL  MULRFS  (CNDX,  WNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


MUMDFA  (SUBROUTINE) 


Make  DO  FOR  ALL  statement. 

CNDX  is  an  IVTRAN  statement.  Build  a  DO  FOR 
ALL  skeleton  around  it  consisting  of  a  preceding 
FORALL  statement  and  a  following  labelled  CONTIN 
statement.  Set  DNDX  to  the  index  of  the  FORALL 
statement. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  LTAB.DEF, 
TABL.EQU,  NOYES. EQU,  TYPE .EQU 

ROUTINES:  L,  S,  UCMLBL,  UCMSKS,  UCCSTA, 

U CASTA,  UCLPST,  UCBOPR 

TCOM,  CTABLE ,  LTABLE 

CALL  MUMDFA  (CNDX,  DNDX) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


. . 


MUMDO  (SUBROUTINE) 


Make  DO  statement. 

DFNDX  is  a  FORALL/DO  statement.  Create  a 
DO  statement* preceding  it  with  the  same  range. 
If  MAKIN G .  EQ .  TRUE .  create  an  OPRAND  for  an 
increment  velue .  Set  DONDX  to  the  index  of  the 
new  DO  statement. 

INSERTS:  TCOM  .DEF,  CTAB.DEF,  TABL.EQTT, 
TYPE.EQU,  NOYES. EQU 

ROUTINES:  L,  UCMSKS,  UCMCPY,  UCLPST, 

U  CASTA 

TCOM,  CTABLE 

CALL  MUMDO  (DFNDX,  DONDX,  MAKINC) 


TECHNIQUES: 


PROGRAM  NAME: 


MX  (SUBROUTINE) 


PURPOSE: 


Macro  Expansion  root  program. 


FUNCTION: 


MX  creates  a  STATOP  back  chain  in  CB.AKOP 
then  calls  the  subroutines  which  are  the  Macro 
Expansion  phases. 


EXTERNAL  REFERENCES:  INSERTS:  TCOM.DEF,  CTAB.DCL 


ROUTINES:  L,  S 

COMMON:  TCOM,  CTABLE 

CALLING  SEQUENCE:  CALL  MX 


TECHNIQUES: 
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PROGRAM  NAME: 


MXPHB  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Macro  Lxpansion  Phase  B  main  program 


MXPHB  proceeds  in  the  following  steps: 

0.  Initialization;  zero  WTAB,  chain  all  SARRAY 
element  in  STAB.  Cbpy  all  LINK  chains  into 
WTAB. 

1 .  Eliminate  each  LINK  copy  in  WTAB  for  which 
no  asterisks  appear;  if  an  SARRAY  reference 
is  found  not  in  an  ARRAY  EXOP,  create  an 
ARRAY  EXOP  with  all  asterisks. 

2.  Pass  through  all  copies  in  WTAB  again.  For 
each  non-zero  link  copy: 

a.  Locate  all  ARRAY  EXOPS  in  that  statement 
with  asterisks,  then  delete  the  LINK 
copies  from  WTAB 

b.  Write  a  FORALL  statement  around  the 
given  statement,  replacing  one  asterisk 
with  a  generated  integer  scalar 

c.  If  asterisks  remain,  write  DO  statements 
around  the  existing  group  until  all 
asterisks  are  replaced. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  STAB.DEF, 

WTAB.DEF,  TABL,EQU,  TYPE.EQU,  NOYES. EQU 

ROUTINES:  L,  S,  CSETZ,  USCHAN,  USCLNK, 

MBISEX,  MBISRF,  MBMARF ,  MULRFS,  UCLTST, 

MBRXTN ,  USMSCA,  UKMISC,  MBRPAS,  MUMDFA, 

UCLNCN,  UCBOPR,  MUMDO,  UKMINT 

TCOM,  CTABLE,  STABLE,  WTABLE 

CALL  MXPHB 
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D. 


Macro  Expander  and  Optimizer  Support  Package 


The  Macro  Expander  and  Optimizer  phases  of  the  IVTRAN  compiler 
share  a  support  package  of  approximately  90  routines.  This  package  is 
85  per  cent  complete  and  debugged  as  of  this  writing. 

» 

The  purpose  of  the  support  package  is  to  allow  dealing  with  the 
Intermediate  Language  representation  of  an  IVTRAN  program  at  a  higher  level 
than  its  basic  block  and  table  structure;  resulting  in  more  rapid  coding  and 
debugging  of  the  Macro  Expander  and  Optimizer,  and  making  these  programs 
more  insensitive  to  changes  in  the  Intermediate  Language.  The  routines  in 
the  support  package  fall  into  the  following  categories. 

1  •  Adding  or  deleting  table  elements  and  constructs . 

2.  Maintaining  or  modifying  program  structure. 

3  .  Locating  specific  program  units  or  structures . 

4.  Performing  symbolic  arithmetic  on  IVTRAN  expressions. 

Naming  Conventions 

All  routines  in  the  support  package  are  named  according  to  the 
following  conventions; 


1st  letter 
2nd  letter 

3rd  letter 

4th-6th  letters 


U 

table  prefix  letter  (C,  K,  S,  L,  W) ,  or  G  for  general 
routines,  or  A  for  algebraic  routines 

action  (e.g. ,  D  -  delete  or  decrement,  A  -  add  or  append, 
L  -  locate 

roughly  mnemonic  for  the  routine's  operand (s). 


The  routines  are  grouped  by  function  below. 
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CN  chain  routines; 


The  following  routines  perform  various  manipulations  of  the  CN 
chains  attached  to  EXOP's  and  STATOP' s  in  the  CTABLE. 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 

COMMON : 

CALLING  SEQUENCE: 
TECHNIQUES: 


UCAOCN  (SUBROUTINE) 

Add  OPRAND  to  CN  chain 

Add  the  OPRAND  at  CNDX2  to  a  CN  chain 
immediately  following  the  element  at  CNDX1 . 
CNDX1  may  be  STATOP/EXOP/OPRAND.  Error 
trap  on  improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  NOYES. EQU 
ROUTINES:  UEHALT ,  L,  S 
TCOM,  CTABL 

CALL  UCAOCN  (CNDX1 ,  CNDX2) 
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I 

I 

I 

I 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


UCAOCT  (SUBROUTINE) 


Add  OPRAND  to  end  of  CN  chain. 

Add  the  OPRAND  at  CNDX2  to  the  end  of  the  CN 
chain  containing  CNDX1 .  CNDX1  may  be 
STATOP/EXOP/OPRAND.  Error  trap  on  improper 
argument. 


I 


EXTERNAL  REFERENCES: 


INSERTS:  TCOM.DEF,  CTAB.DCL,  NOYES. EQU 


ROUTINES:  UEHALT ,  L,  S,  UCLTCN 
TCOM,  C TABLE 

CALL  UCAOCT  (CNDX1 ,  CNDX2) 

I 

I 

I 

I 

I 

I 

I 

I 


I 

I 

I 


COMMON: 


CALLING  SEQUENCE: 


I 


TECHNIQUES: 


* 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UCLCNH  (INTEGER  FUNCTION) 

Locate  head  of  CN  chain 

Locate  the  EXOP/STATOP  which  begins  the  CN 
chain  containing  the  OPRAND  at  CNDX.  Error 
call  on  improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  NOYES. EQU 
ROUTINES:  L,  UEHALT 


UCLCNH  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UCLNCN  (INTEGER  FUNCTION) 

Locate  n'th  OPRAND 

Set  UCLNCN  to  the  index  of  the  N'th  OPRAND 

on  the  CN  chain  containing  CNDX,  with  CNDX 
counting  as  1. 

INSERTS:  TCOM.DEF,  CTAB.DCL 
ROUTINES:  L 
TCOM,  CTABLE 
UCLNCN  (CNDX,  N) 
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PROGRAM  NAME: 


UCLPOP  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Locate  previous  element  in  CN  chain. 

Locate  the  element  in  the  CN  chain  which  pre¬ 
cedes  the  OPRAND  at  CNDX  by  following  the 
chain  around  the  ring.  Error  trap  on  improper 
argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL 
ROUTINES:  L,  UEHALT 
TCOM,  C TABLE 
UCLPOP  (CNDX) 
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PROGRAM  NAME: 


UCLTCN  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Locate  tail  of  CN  chain. 

Locate  the  OPRAND  in  the  CN  chain  containing 
the  element  at  CNDX  for  which  CLARG.EQ .YES. 

INSERTS:  TCOM.DEF,  CTAJ.DCL,  NOYES. EQU 

ROUTINES:  L 

TCOM ,  CTABLE 

UCLTCN  (CNDX) 
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PROGRAM  NAME: 


UCNOCN  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Count  OPRANDS  in  CN  chain. 

Set  UCNOCN  to  the  number  of  OPRANDS  in  the 
CN  chain  which  begins  at  the  element  at  CNDX. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  NOYES. EQU 

ROUTINES:  L 

TCOM,  C TABLE 

UCNOCN  (CNDX) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UCUOCN  (SUBROUTINE) 

Unlink  OPRAND  from  CN  chain 

Remove  the  OPRAND  at  CNDXfrom  its  CN  chain, 
and  update  the  chain.  Error  trap  on  improper 
argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  NOYES. EQU 

ROUTINES:  L,  S,  UEHALT,  UCLPOP 

TCOM ,  CTABLE 

CALL  UCUOCN  (CNDX) 


TECHNIQUES: 


LINK  chain  routines 


The  following  routines  maintain  the  LINK  chains  which  begin  at 
elements  in  CTABLE ,  STABLE,  KTABLE  and  LTABLE  and  use  the  CLINK  field 
in  CTABLE  to  locate  all  references  to  a  given  element.  Also  included  are 
routines  which  create  and  maintain  copies  of  these  chains  in  the  work 
area  table . 


-127- 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UCALNK  (SUBROUTINE) 

Add  element  to  CLINK  chain. 

Add  the  CTAB  element  at  CNDX  to  the  CLINK 
chain  which  begins  at  CLINK  (CNDX) . 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  L,  S,  UGALNK 

TCOM,  C TABLE 

CALL  UCALNK  (NDX,  CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 


UCDLNK  (SUBROUTINE) 


PURPOSE: 


Delete  element  from  CLINK  chain 


FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Remove  the  element  NDX  from  the  CLINK  chain 
which  begins*  at  CLINK  (CNDX) .  Error  trap  if 
CLINK  (CNDX)  =  0. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  L,  S,  UEHALT,  UGDLNK 

TCOM,  CTABLE 

CALL  UCDLNK  (NDX,  CNDX) 
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PROGRAM  NAME: 


UGALNK  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Add  link  to  chain  with  non-zero  head. 

Add  VAL  to  the  chain  whose  (non-zero)  head  is 
HD  and  whose  field  definition  is  FLD.  Error 
trap  if  HD  is  zero. 

INSERTS:  none 

ROUTINES:  UEHALT,  UGLEND,  S 
None 

CALL  UGALNK  (HD,  FLD,  VAL) 
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PROGRAM  NAME: 


UGAPND  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Add  element  to  chain  and  set  head. 

Add  VAL  to  the  chain  whose  head  is  HD  and 
whose  field  definition  is  FLD.  If  HD.EQ.O, 
HD  «-  VAL. 

INSERTS:  None 

ROUTINES:  UGLEND,  S 

None 

CALL  UGAPND  (HD,  FLD,  VAL) 
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PROGRAM  NAME: 


UGDLNK  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Delete  link  from  chain. 

Remove  VAL  from  the  chain  whose  head  is  HD 
and  whose  field  definition  is  FLD.  Error  trap 
if  HD.EQ.VAL. 

INSERTS:  None 

ROUTINES:  L,  S,  UEHALT 

None 

CALL  UGDLNK  (HD,  FLD,  VAL) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


IJGLEND  (INTEGER  FUNCTION) 

Locate  end  of  chain. 

Set  UGLEND  to  the  index  of  the  last  element 
of  the  chain  whose  head  is  HD  and  whose  field 
definition  is  FLD. 

INSERTS:  None 

ROUTINES:  L 

None 

UGLEND  (HD,  FLD) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UGNLNK  (INTEGER  FUNCTION) 

Count  links  in  chain. 

Set  UGNLNK  to  the  number  of  links  in  the  chain 
whose  head  i*s  HD  and  whose  field  definition 
is  FLD. 

INSERTS:  None 
ROUTINES:  L 

None 

UGNLNK  (HD,  FLD) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UKALNK  (SUBROUTINE) 

Add  element  to  KLINK  chain 

Add  the  CTAB  element  at  CNDX  to  the  KLINK 
chain  beginning  at  KLINKO  (KNDX) 

INSERTS:  TCOM.DEF ,  CTAB.DCL,  KTAB 

ROUTINES:  L,  S,  UGALNK 

TCOM ,  CTABLE,  KTABLE 

CALL  UKALNK  (KNDX,  CNDX) 


L 

I 

I 

I 

I 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UKDLNK  (SUBROUTINE) 

Delete  element  from  KLINK  chain. 

Delete  the  CTAB  element  at  CNDX  from  the 
KLINK  chain  beginning  at  KLINKO  (KNDX) . 

Error  trap  if  chain  empty. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  KTAB.DEF 
ROUTINES:  L,  S,  UEHALT,  UGDLNK 
TCOM,  CTABLE,  KTABLE 
CALL  UKDLNK  (KNDX,  CNDX) 


TECHNIQUES: 


PROGRAM  NAME:  U1AI.NK  (SUBROUTINE) 

PURPOSE:  Add  element  to  LLINK  chain . 

FUNCTION:  Add  the  CTAB  element  at  CNDX  to  the  LLINK 

chain  which  begins  at  LUNKO  (LNDX) . 

EXTERNAL  REFERENCES:  INSERTS:  TCOM.DEF,  CTAB.DCL,  LTAB.DEF 

ROUTINES:  L,  S,  UGALNK 

COMMON:  TCOM,  CTABLE ,  LIABLE 

CALLING  SEQUENCE:  CALL  ULALNK  (LNDX,  CNDX) 


TECHNIQUES 


PROGRAM  NAME 


ULDLNK  (SUBROUTINE) 


PURPOSE:  Delete  element  from  LLINK  chain. 

FUNCTION:  Remove  the  CTAB  element  at  CNDX  from  the 

LLINK  chain  beginning  at  LLINKO  (LNDX) . 

Error  trap  if  chain  empty. 

EXTERNAL  REFERENCES:  INSERTS:  TCOM.DEF,  CTAB.DCL,  LTAB.DEF 

ROUTINES:  L,  S,  UEHALT,  UGDLNK 
COMMON:  TCOM,  CTABLE ,  LTABLE 

CALLING  SEQUENCE:  CALL  ULDLNK  (LNDX,  CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


USALNK  (SUBROUTINE) 

Add  element  to  SLINK  chain 

Add  the  CTAB  element  at  CNDX  to  the  SLINK 
chain  which  begins  at  SLINKO  (SNDX) . 

INSERTS:  TCOM.DEF,  STAB.DCL,  CTAB.DCL 

ROUTINES:  L,  S,  UGALNK 

TCOM ,  CTABLE,  STABLE 

CALL  USALNK  (SNDX,  CNDX) 
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PROGRAM  NAME: 


US  CHAN  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Chain  all  STAB  elements  of  like  SKIND 

Chain  all  STAB  elements  for  which  SKIND. EQ. 
KIND  using  HD  as  the  chain  head  and  field 
definition  FLD  for  the  link  field . 

INSERTS:  TCOM.DEF,  STAB.DCL 

ROUTINES:  L,  S 

TCOM,  STABLE 

CALLUSCHAN  (KIND,  HD,  FLD) 
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PROGRAM  NAME: 


USGLNK  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Copy  SLINK  chain  to  work  ares 

Copy  the  SLINK  chain  for  the  STAB  element  at 
SNDX  into  WTAB .  Set  WNDX  to  the  index  of 
the  copy  element  in  WTAB. 

INSERTS:  TCOM.DEF,  STAB.DCL,  CTAB.DCL, 
WTAB.DEF 

ROUTINES:  L,  S,  UGNLNK,  UGAPND 
TCOM,  STABLE,  CTABLE ,  W TABLE 
CALL  USCLNK  (SNDX,  WNDX) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


USDLNK  (SUBROUTINE) 

Delete  element  from  SLINK  chain. 

Remove  the  CTAB  element  at  CNDX  from  the 
SLINK  chain  which  begins  at  SLINKO  (SNDX) . 
Error  trap  if  chain  empty. 

INSERTS:  TCOM.DEF,  CTAB.  DC  L,  STAE.DCL 
ROUTINES:  L,  S,  UEHALT,  UGDLNK 
TCOM ,  CTABLE ,  STABLE 
CALL  USDLNK  (SNDX,  CNDX) 
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PROGRAM  NAME: 


UWDLNK  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 

COMMON 

CALLING  SEQUENCE: 
TECHNIQUES: 


Delete  link  copy  from  work  area. 

CNDX  is  an  ARRAY  EXOP  whose  CLINK  field 
appears  in  a  SLINK  chain  copy  in  WTAB.  Locate 
the  copy  element  via  the  cross-reference  pointer 
in  STAB  (SLINK) ,  then  locate  the  link  copy  and 
delete.  Error  trap  on  improper  argument  or  copy 
not  found. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  STAB.DCL, 
WTAB  .DEF 

ROUTINES:  L,  S,  UEHALT 
TCOM,  CTABLE,  STABLE,  STABLE 
CALL  UWDLNK  (CNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 


UWUCPY  (SUBROUTINE) 

Update  link  copy  in  work  area. 

WNDX  is  the  index  of  a  link  chain  copy  element 
in  WTAB  in  which  CNDX1  should  appear.  Replace 
CNDX1  with  CNDX2 .  Error  trap  if  improper 
argument  or  copy  not  found . 

INSERTS:  TCOM.DEF,  WTAB .DEF 

ROUTINES:  L,  S,  UEHALT 

TCOM,  WTABLE 

CALL  UWUCPY  (WNDX,  CNDX1,  CNDX2) 


TECHNIQUES: 


program  name: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UCDREF  (SUBROUTINE) 

Decrement  CREF  and  flag  if  zero. 

Decrement  the  CREF  field  of  the  CTAB  element 
at  CNDX.  ZRO  <- . TRUE .  if  CREF  becomes 
zero,  else  ZRO<-  .FALSE. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  L,  S 

TCOM,  C TABLE 

CALL  UCDREF  (CNDX,  ZRO) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UCIREF  (SUBROUTINE) 

Increment  CREF 

Add  one  to  the  CREF  field  of  the  CTAB  element 
at  CNDX* 

INSERTS:  TCOM.DEF,  CTAB.DCL 
ROUTINES:  L,  S 
TCOM,  CTABLE 
CALL  UCIREF  (CNDX) 
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PROGRAM  NAME: 


UKDREF  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Decrement  KREF 


Decrement  the  KREF  field  of  the  KTAB  element 
at  KNDX .  ZRO  ♦-  .TRUE .  if  KREF  goes  to  zero, 
else  ZRO*-.  FALSE. 

INSERTS:  TCOM.DEF,  KTAB.DEF 

ROUTINES:  L,  S 

TCOM ,  KTABLE 

CALL  UKDREF  (KNDX,  ZRO) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 


UKIREF  (SUBROUTINE) 

Increment  KREF 

Add  one  to  the  KREF  field  of  the  KTAB  element 
at  KNDX. 

INSERTS:  TCOM.DEF,  KTAB.DEF 
ROUTINES:  L,  S 


COMMON : 

CALLING  SEQUENCE: 
TECHNIQUES: 


TCOM,  KTABLE 
CALL  UKIREF  (KNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 


ULDREF  (SUBROUTINE) 

Decrement  LREF 

Decrement  the  LREF  field  of  the  LTAB  element 
at  LNDX.  ZRO  4- .TRUE,  if  LREF  goes  to  zero, 
else  ZRO  ♦*. FALSE. 

INSERTS:  TCOM.DEF,  LTAB.DEF 

ROUTINES:  L,  S 

TCOM,  LTABLE 

CALL  ULDREF  (LNDX,  ZRO) 


TECHNIQUES: 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON . 

CALLING  SEQUENCE: 
TECHNIQUES: 


ULIREF  (SUBROUTINE) 

Increment  LREF 

Add  one  to  the  LREF  field  of  the  LTAB  element 
at  LNDX. 

INSERTS:  TCOM.DEF,  LTAB.DEF 
ROUTINES:  L,  S 
TCOM ,  LTABLE 
CALL  ULIREF  (LNDX) 
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TVTRAN  statement  routines 


The  following  statements  allow  the  programmer  to  manipulate  the 
program  in  units  of  IVTRAN  statements.  An  IVTRAN  statement  is  defined  as 
a  sequence  of  STATOPS  which  may  contain  a  SEQNO  STATOP,  a  LABEL  STATOP, 
and  exactly  one  executable  STATOP  (COPR. GT. LABEL) ,  unless  COPR.EQ.LIF, 
in  which  case  there  are  two  executable  STATOPS.  When  MX  is  initialized, 
it  creates  a  back  chain  of  STATOPS  in  the  CBAKOP  loop  field  which  makes 
program  manipulation  far  more  efficient. 


-15^- 


PROGRAM  NAME: 


UCAPST  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Add  IVTRAN  statement  preceding  given  statement. 


Add  the  IVTRAN  statement  at  CNDX1  to  the  pro¬ 
gram  immediately  preceding  the  statement  at 
CNDX2 ,  by  modifying  the  CNOPR  and  CBAKOP 
chains.  Error  trap  on  improper  arguments. 

INSERTS:  TCOM .DEF,  CTAB.DCL 

ROUTINES:  L,  UCLSTT,  UCCSTA,  UEHALT 

TCOM ,  CTABLE 

CALL  UCAPST  (CNDX1 ,  CNDX2) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UCASTA  (SUBROUTINE) 

Add  IVTRAN  statement  following  given  statement. 

Add  the  IVTRAN  statement  at  CNDX1  to  the  pro- 
» 

gram  immediately  following  the  statement  at 
CNDX2  by  modifying  the  CNOPR  and  CBAKOP 
chains.  Error  trap  on  improper  arguments  . 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  L,  UEHALT,  UCLSTT,  UCLNST, 
UCCSTA 

TCOM,  CTABLE 

CALL  UCASTA  (CNDX1 ,  CNDX2) 


TECHNIQUES: 


PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UCCSTA  (SUBROUTINE) 

Chain  STATOP's 

CNOPR  (CNDXl)  ♦-CNDX2,  CBAKOP(CNDX2)  «- 
CNDX1 

INSERTS:  TCOM.DEF,  CTAB.DCL 
ROUTINES:  S 
TCOM,  CTABLE 

CALL  UCCSTA  (CNDXl,  CNDX2) 
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PROGRAM  NAME: 


UCLNST  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Locate  next  IVTRAN  statement 

Locate  the  first  STATOP  in  the  IVTRAN  statement 
following  the  STATOP  at  CNDX.  Error  trap  if 
improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DEF 

ROUTINES:  L,  UEHALT 

TCOM ,  CTABLE 

UCLNST  (CNDX) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE; 
TECHNIQUES: 


UCLPST  (INTEGER  FUNCTION) 

Locate  previous  IVTRAN  statement 

Locate  the  STATOP  which  begins  the  IVTRAN 
statement  preceding  the  statement  containing  the 
STATOP  at  CNDX.  Error  trap  on  improper 
argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL 
ROUTINES:  L,  UEHALT,  UCLTST 

UCLPST  (CNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UCLSTO  (INTEGER  FUNCTION) 

Locate  executable  STATOP  of  IVTRAN  statement. 

Locate  the  first  executable  (COPR.GT. LABEL) 
STATOP  in  the  IVTRAN  statement  containing  the 
element  at  CNDX. 

INSERTS:  TCOM.DEF,  CTAB.DEF 

ROUTINES:  L,  UCLTST 

TCOM,  CTABLE 

UCLSTO  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 


UCLSTT  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Locate  tail  STATOP  of  IVTRAN  statement. 

Locate  the  last  STATOP  in  the  IVTRAN  statement 
containing  the  element  at  CNDX. 

INSERTS:  TCOM.DEF,  CTAB.DEF 

ROUTINES:  L 

TCOM,  CTABLE 

UCLSTT  (CNDX) 
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PROGRAM  NAME: 


UCLTST  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Locate  head  of  IVTRAN  statement 

Locate  the  STATOP  which  begins  the  IVTRAN 
statement  containing  the  element  at  CNDX. 

Error  trap  on  bad  program  structure. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  NOYES. EQU 

ROUTINES:  L,  UEHALT,  UCLCNH 

TCOM,  CTABLE 

UCLTST 
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PROGRAM  NAME: 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UCRSTO  (INTEGER  FUNCTION) 

Return  value  of  executable  STATOP. 

UCRSTO  is  set  to  the  value  of  the  COPR  field 
of  the  first  executable  STATOP  of  the  IVTRAN 
statement  containing  CNDX. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  L,  UCLSTO 

TCOM,  C TABLE 

UCRSTO  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 


UCUSTE  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COML 

CALLING  SEQUENCE: 
TECHNIQUES: 


Unlink  STATOP  from  chains. 

Remove  the  STATOP  at  CNDX  from  the  CNOPR 
and  CBAKOP  chains,  and  update  the  chains. 
Error  trap  on  improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  L,  S,  UEHALT 

TCOM,  CTABLE 

CALL  UCUSTE  (CNDX) 
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■*****?w*e m 


Routines  for  creating  table  elements  and  structure.  Including  routines  for 
locating  KTAB  elements. 

The  following  routines  create  individual  elements  in  CTABLE,  KTABLE, 
L TABLE ,  STABLE  and  ETABLE,  and  also  create  structures  in  CTABLE .  All  the 
basic  routines  use  a  single  general  routine  to  acquire  table  elements. 

Definitions: 

A  skeleton  in  the  CTABLE  is  a  STATOP  or  EXOP  with  a  CN  chain  of 
OPRAND's.  The  COPR  value  of  the  STATOP/EXOP  is  set.  None  of  the  OPRAND's 
are  bound  to  table  elements . 

Binding  an  OPRAND  to  an  element  in  CTABLE,  STABLE,  KTABLE,  or 
LTABLE  involves  setting  the  CLINE,  CTABLE  and  CTYPE  fields  of  the  OPRAND, 
adding  to  the  table  elements  LINK  chain,  and  incrementing  the  element's  REF 
counter  if  defined.  Copying  and  unbinding  OPRAND's  involve  operations  on 
the  same  fields. 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UCBOPR  (SUBROUTINE) 

Bind  OPRAND  to  table  element. 

Binds  the  OPRAND  at  CNDX  to  the  element  in 
table  TABNO  at  index  value  NDX.  CLINE  *-NDX, 
CTABL  4-TABNO ,  and  the  REF  counters  and  LINK 
chains  for  each  table  entry  are  updated. 

CTYPE  «-UCRTYP(NDX) .  Tables  recognized  are 
CTAB,  STAB,  KTAB  and  LTAB.  Error  trap  on 
improper  arguments. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  STAB.DCL, 
KTAB.DEF,  LTAB.DEF,  TABL.EQU 

ROUTINES:  L,  S,  UEHALT,  UCIREF,  UCALNK, 
USALNK,  UKIREF ,  UKALNK,  ULIREF,  ULALNK 

TCOM,  CTABLE,  STABLE,  KTABLE ,  LTABLE 

CALL  UCBOPR  (CNDX,  TABNO,  NDX) 
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PROGRAM  NAME: 


UCMCPY  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Make  copy  of  OPRAND 

Copy  all  the  fields  from  the  OPRAND  at  OPNDX1 
into  the  OPRAND  at  OPNDX2  except  CN,  CLINK 
and  CLARG .  U  pdate  the  CLINK  field  and  other 
table  LINK  fields  appropriately.  Error  trap  on 
improper  arguments. 

INSERTS:  TCOM.DEF,  CTAB .DCL,  TABL.EQU 

ROUTINES:  L,  S,  UEHALT,  UCALNK,  UCIREF, 
USALNK,  UKALNK,  UKIREF,  ULALNK,  ULIREF 

TCOM ,  CTABLE 

CALL  UCMCPY  (OPNDX1,  OPNDX2) 
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PROGRAM  NAME:  UCMEXE  (SUBROUTINE) 


PURPOSE: 


Make  EXOP 


FUNCTION: 


Create  a  CTAB  element  with  CK1ND  <-EXOP  and 
COPR  *-OP.  Set  CNDX  to  the  index  of  the  new 

element. 


EXTERNAL  REFERENCES:  INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  UGTELM ,  S 

COMMON:  TCOM,  CTABLE 

CALLING  SEQUENCE:  CALL  UCMEXE  (OP,  CNDX) 

TECHNIQUES: 
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PROGRAM  NAME: 


UCMLBL  (SUBROUTINE) 


PURPOSE: 


Create  LABEL  STATOP  and  assoolated  LTAB 
element. 


FUNCTION: 


EXTERNAL  REFERENCES: 


Create  a  LABEL  STATOP  with  one  OPRAND. 
Generate  a  new  element  In  LTAB  using  LGEN 
and  bind  the  OPRAND  to  It.  Set  CNDX  to  the’ 
index  of  the  LABEL  STATOP.  and  set  LNDX  to 
the  Index  of  the  new  LTAB  element. 


INSERTS:  TCOM.DEF, 

tabl.equ 


CTAB.DEF,  LTAB.DEF, 


COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


ROUTINES:  L,  S,  ULMELM,  UCMSKS,  UCBOPR 
TCOM,  CTABLE,  LIABLE 
CALL  UCMLBL  (CNDX,  LNDX) 


I 
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PROGRAM  NAME: 


UCMOPR  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Make  OPRAND  element. 

Create  a  new  CTAB  element  with  CKIND  ♦-OPRAND. 
Set  CNDX  to  the  index  of  the  new  element. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  S,  UGTELM 

TCOM,  CTABLE 

CALL  UCMOPR  (CNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UCMSKE  (SUBROUTINE) 

Make  EXOP  skeleton. 

Make  an  EXOP  element  with  COPR<-OP,  then 
make  up  a  ON  chain  with  NARG  OPRANDS.  Set 
CNDX  to  the  index  of  the  EXOP  element. 

INSERTS:  TCOM.DEF,  CTAB.DEF 

ROUTINES:  UEHALT,  UCMEXE,  UCMSKO 

TCOM,  CTABLE 

CALL  UCMSKE  (OP,  NARG,  CNDX) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UCMSKO  (SUBROUTINE) 


Make  skeleton  CN  chain. 

Make  NARG  OPRANDS  and  link  them  into  a  CN 
chain.  CN  (CNDX)  ♦- index  of  first  OPRAND  in 
chain  CN  (Last  OPRAND)  «-CNDX,  and  CLARG 
(last  OPRAND)  «-YES. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  UCMOPR,  S 

TCOM,  CTABLE 

CALL  UCMSKO  (CNDX,  NARG) 


TECHNIQUES: 


PROGRAM  NAME: 


UCMSKS  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Make  STATOP  skeleton. 

Make  a  STATOP  element  with  COPR  *-0?,  then 
make  a  CN  chain  with  NARG  OPRANDS  and  link 
it  to  the  STATOP.  Set  CNDX  to  the  index  of  the 
STATOP  element. 

INSERTS:  TCOM.DEF,  CTAB.DEF 
ROUTINES:  S,  U  EH  ALT,  UCMSTE,  UCMSKO 
TCOM ,  CTABLE 

CALL  UCMSKS  (OP,  NARG,  CNDX) 
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PROGRAM  NAME: 


UCMSTE  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE:. 
TECHNIQUES: 


Make  a  STATOP  element. 

Create  a  CTAB  element  with  CKIND  «-STATOP 
and  COPR  *-0'P.  Set  CNDX  to  the  index  of  the 
new  element. 

INSERTS:  TCOM.DEF,  CTAB. DC L 
ROUTINES:  S,  UGTELM 
•  TCOM ,  CTABLE 

CALL  UCMSTE  (OP,  CNDX) 
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PROGRAM  NAME: 


UCRTYP  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Return  type  of  structure . 

UCRTYP  is  set  to  the  value  of  the  first  valid 
CTYPE  field  encountered  in  the  program 
structure  beginning  at  CNDX. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  L 

TCOM,  CTABLE 

UCRTYP  (CNDX) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UGTELM  (SUBROUTINE) 


Get  table  element. 


Acquire  anew  element  in  table  TAB  NO  of  size 
SIZE  and  set  NDX  to  its  index.  Take  the  new 
element  from  a  free  list  if  possible.  Extend 
table  if  necessary.  Element  is  set  to  all  zeroes. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  STAB.DCL, 
KTAB.DEF,  LTAB.DEF,  ETAB.DEF,  VTAB.DEF, 
WTAB . DEF ,  PTAB.DEF,  TABL.EQU 

ROUTINES:  L,  UGZELM,  EXTEND 

TCOM,  CTABLE ,  STABLE,  KTABLE ,  L TABLE, 
ETABLE,  VTABLE ,  WTABLE ,  PTABLE 

CALL  UGTELM  (TABNO ,  SIZE,  NDX) 


TECHNIQUES: 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UKLINT  (INTEGER  FUNCTION) 

Locate  INT  constant. 

If  a  KTAB  element  exists  with  KTYPE.EQ.INT 
and  KVAL.EQ*.VAL,  set  UKLINT  to  its  index, 
else  UKLINT <-0. 

INSERTS:  TCOM.DEF,  KTAB.DEF,  TYPE . EQU 
ROUTINES:  L 
TCOM,  KTAB 
UKLINT  (VAL) 


/) 


c 
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PROGRAM  NAME: 


UKLISC  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Locate  iterated  set  constant. 

If  a  KTAB  element  exist  with  KTYPE.EQ .SET, 
whose  initial  value  and  increment  are  one,  and 
whose  extent  is  XTNT,  then  UKLISC  is  set  to 
its  index  value,  else  UKLISC  4-0. 

INSERTS:  TCOM.DEF,  KTAB.DEF,  ETAB.DEF 
TYPE.EQU,  NOYES. EQU 

ROUTINES:  L 

TCOM,  KTABLE ,  ETABLE 

UKLISC  (XTNT) 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON : 

CALLING  SEQUENCE: 
TECHNIQUES: 


UKMINT  (SUBROUTINE) 

Make  INT  constant. 

If  a  KTAB  element  exists  with  KTYPE.EQ.INT 
and  KVAL.EQ.VAL,  set  KNDX  to  its  index,  else 
create  a  KTAB  element  with  KTYPE  *-INT  and 
KVAL  *-VAL  and  set  KNDX  to  its  index. 

INSERTS:  TCOM.DEF,  KTAB.DEF,  TYPE.EQU 

ROUTINES:  S,  UKLINT ,  UGTELM,  UGAPND 

TCOM,  KTABLE 

CALL  UKMINT  (VAL,KNDX) 
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PROGRAM  NAME: 


UKMISC  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Make  iterated  set  constant. 

If  UKLISC  fails,  create  a  KTAB  element  with 
KTYPE  4- SET ,  ‘initial  value  and  increment  one, 
final  value  *-XTNT,  and  an  associated  ETAB 
element  with  extent  «-XTNT.  Set  KNDX  to  the 
new  KTAB  element  index. 

INSERTS:  TCOM.DEF,  KTAB.DEF,  ETAB.DEF, 
TABL.EQU,  TYPE.EQU,  NOYES. EQTJ 

ROUTINES:  S,  UKLISC,  UGTELM ,  UGAPND 

TCOM  ,  KTABLE ,  ETABLE 

CALL  USMISC  (XTNT ,  KNDX) 
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PROGRAM  NAME: 


ULMELM  (oUBOUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Make  LTAB  element. 

Create  a  new  LTAB  element:  LVAL«-  next  value 
of  LGEN  i  LISDF  *-YES. 

INSERTS:  TCOM.DEF,  LTAB .  DEF ,  NOYES. EQU 

ROUTINES:  S,  UGTELM 

TCOM ,  LTABLE 

CALL  ULMELM  (LNDX) 


-180- 


I 

USGENM  (SUBROUTINE) 

Generate  variable  name. 

Generates  the  next  available  6 -character 
SIXBIT  name  from  the  value  stored  in  SGEN. 

INSERTS:  TCOM.DEF,  STAB.DEF,  CGLOB.DEF, 
XCNAM.EQU 

ROUTINES:  None 

TCOM ,  STABLE,  CGLOB 

CALL  USGENM  (SN) 

”  TECHNIQUES: 

I 
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PROGRAM  NAME: 
PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 


COMMON: 


CALLING  SEQUENCE: 
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PROGRAM  NAME: 


USMSCA  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Make  scalar  element . 

Create  an  STAB  element  with  SNAME  set  to  the 
next  available  generated  name,  SKIND  ^SCALAR, 
STYPE  «-TYP.  Set  SNDX  to  the  index  of  the 
element . 

INSERTS:  TCOM.DEF,  STAB .DEF 
ROUTINES:  S,  UGTELM,  USGENM,  UGAPND 
TCOM ,  STABLE 
CALL  USMSCA  (TYP,  SNDX) 
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Routines  for  deleting  CTAGLE  elements  and  structures 


The  following  routines  are  used  to  delete  elements  and  structure 
in  CTABLE .  The  basic  routine  is  UCDOPR,  which  may  involve  extensive 
deletion  of  structure  through  following  CLINE  pointers. 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 


UCDEXE  (SUBROUTINE) 

Decrement  and  delete  EXOP. 

Decrement  the  CREF  counter  of  the  EXOP  at 

CNDX,  and  if  the  count  goes  to  zero,  delete 

the  EXOP  and  its  OPRAND  chain.  Error  trap  on 
improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL 


COMMON: 


CALLING  SEQUENCE: 
TECHNIQUES: 


ROUTINES: 

UGFELM 


L,  UEHALT,  UCDREF,  UCDOCN, 


TCOM,  CTABLE 
CALL  UCDEXE  (CNDX) 
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PROGRAM  NAME: 


UCDOCN  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Delete  OPRAND  chain. 

Delete  all  the  OPRANDS  in  the  CN  chain 
beginning  at  CNDX  with  successive  calls  to 
UCDOPR.  Error  trap  on  improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  NOYES. EQU 

ROUTINES:  L,  U  EH  ALT,  UCDOPR 

TCOM,  CTABLE 

CALL  UCDOCN  (CNDX) 
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PROGRAM  NAME: 


UCDOCN  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Delete  OPRAND  chain. 

Delete  all  the  OPRANDS  in  the  CN  chain 
beginning  at  CNDX  with  successive  calls  to 
UCDOPR.  Error  trap  on  improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  NOYES. EQU 

ROUTINES:  L,  UEHALT,  UCDOPR 

TCOM,  C TABLE 

CALL  UCDOCN  (CNDX) 
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PROGRAM  NAME: 


UCDOPR  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Delete  OPRAND  and  its  substructure . 

Delete  the  OPRAND  at  CNDX.  Update  the  REF 
counter  and  LINK  chain  for  the  table  element 
CNDX  points  to.  If  CNDX  points  down  to  mere 
structure  in  the  CTAB,  decrement  all  REF  counts 
and  continue  deletion  if  zero.  Error  trap  on 
improper  argument  or  program  structure  error. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  STAB.DCL, 
KTAB.DEF,  LTAB.DEF,  TABL.EQU ,  NOYES. EQU 

ROUTINES:  L,  UEHALT ,  UGZSTK,  UCDLNK, 
UCDREF,  UGPUSH ,  UGPOP,  UGELFM,  USDLNK, 
UKDREF ,  UKDLNK,  ULDREF,  ULDLNK 

TCOM,  CTABLE ,  STABLE,  KTABLE ,  LTABLE 

CALL  UCDOPR  (CNDX) 

A  stack  is  used  to  trace  the  program  structure. 
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PROGRAM  NAME: 


UCDSTA  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Delete  IVTRAN  statement. 

Delete  the  IVTRAN  statement  containing  CNDX 
from  the  program,  by  successive  calls  to  UCPSTL 
on  all  the  STATOP's  in  the  statement. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  UCLTST,  UCLNST,  L,  UCUSTE 

TCOM,  C TABLE 

CALL  UCDSTA  (CNDX) 
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PROGRAM  NAME: 


UCDSTE  (SUBROUTINE) 


PURPOSE:  Delete  STATOP 

Delete  the  STATOP  at  CNDX  and  its  CN  chain 
from  the  program.  Update  the  CNOPR  and 
CBAKOP  chains .  Error  call  if  improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  L,  UEHALT,  UOUSTE,  UCDOCN, 
UGFELM 

COMMON:  TCOM,  CTABLE 

CALLING  SEQUENCE:  CALL  UCDSTE  (CNDX) 

TECHNIQUES: 


FUNCTION: 


EXTERNAL  REFERENCES: 
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PROGRAM  NAME: 


UGFELM  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Place  element  on  free  list 

Zero  out  the  element  in  table  TABNO  at  index 
NDX,  and  place  it  on  the  table's  free  list. 
Error  trap  if  table  has  no  free  list. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  STAB.DEF, 
TABL.EQU 

ROUTINES:  S,  UEHALT,  UGZELM 
TCOM,  CTABLE,  STABLE 
CALL  UGFELM  (TABNO,  NDX) 
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STACK  routines 


The  following  routines  implement  stacks  and  the  usual  PUSH  and 
POP  operations  on  stacks.  Stacks  are  used  for  tracing  program  structure. 
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PROGRAM  NAME: 


UGPOP  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Pop  value  from  stack . 

Set  VAL  to  the  next  value  in  STACK  and  reset 
the  stack  pointer.  NONE . TRUE,  if  no  values 
remain,  else  NONE  FALSE .  Error  trap  if  stack 
underflow . 

INSERTS:  None 

ROUTINES:  UEHALT 

None 

CALL  UGPOP  (STACK,  VAL,  NONE) 
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PROGRAM  NAME:  UGPUSH  (SUBROUTINE) 

PURPOSE:  Push  value  onto  stack. 

FUNCTION:  Reset  the  stack  pointer  in  STACK  and  push  VAL 

onto  it.  Error  trap  if  stack  overflow. 

EXTERNAL  REFERENCES:  INSERTS:  None 

ROUTINES:  UEHALT 
COMMON:  None 

CALLING  SEQUENCE:  CALL  UGPUSH  (STACK,  VAL) 


S 


TECHNIQUES: 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 


UGZSTK  (SUBROUTINE) 

Zero  stack. 

Zero  out  STACK  and  its  stack  pointer. 
INSERTS:  None 

ROUTINES:  None 


COMMON:  None 

CALLING  SEQUENCE:  CALL  UGZSTK  (STACK) 

TECHNIQUES: 
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Algebraic  routines 


The  following  routines  allow  limited  symbolic  algebraic  manipula¬ 
tion  of  arithmetic  expressions  in  the  CTABLE .  They  form  the  necessary  basis 
for  some  phases  of  Macro  Expansion  and  most  of  Optimization.  This  package 
is  approximately  50  per  cent  complete  as  of  this  writing. 

Definitions: 


A  standard  PLUS  is  a  single  PLUS  EXOP  with  one  or  more  OPRANDS 
each  pointing  to  one  term  of  the  plus.  Negative  terms  are  indicated  by  unary' 
minus  (MINUS  EXOP  with  one  OPRAND) .  This  form  is  more  convenient  for 

sub-expression  analysis  than  the  free  form  containing  both  PLUS  and  MINUS 
as  binary  EXOP’s. 


An  analytic  structure  is  an  algebraic  construct  which  is  recognized 
as  a  candidate  for  combination  with  other  analytic  structures.  Currently, 
analytic  structures  are  defined  to  be  INT  constants,  INT  scalars,  TIMES  of 
an  INT  constant  and  an  INT  scalar,  or  unary  minus  of  any  of  the  above. 


PROGRAM  NAME: 


UAAASS  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Add  two  occurrences  of  scalar  and/or  analytic 
TIMES. 

CNDX1  and  CNDX2  must  point  to  OPRANDS  with 
SCALAR  contents,  or  to  analytic  TIMES,  or  unary 
minus  of  these.  The  SCALAR's  must  be  identical. 
Perform  symbolic  addition  of  the  two  elements, 
and  set  RES  to  the  result.  Error  trap  on  improper 
argument. 


INSERTS;  TCOM.DEF,  CTAB.DEF,  TABL.EQU 

ROUTINES:  UALSAS,  UAISOE,  UEHALT,  UAISUM, 
UAKRVL ,  UAAISS,  UALIAT,  UCMSKI,  S,  L, 
UKMINT,  UCBOPR,  UCMCPY,  UAMUMN, 
UCMOPR 

TCOM ,  CTABLE 

CALL  UAAASS  (CNDX1,  CNDX2 ,  RES) 
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PROGRAM  NAME: 


UAAII  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Add  two  integer  constants 

INDX1  and  INDX2  must  be  OPRANDS  pointing  to 
INT  elements'in  KTAB,  or  unary  minus  of  same. 
Add  the  values  of  the  two  constants,  create  a 
KTAB  element  with  that  value,  bind  an  OPRAND 
to  it,  and  set  RES  to  the  OPRAND.  Error  trap  on 
improper  arguments. 

INSERTS:  TCOM.DEF,  TABL.EQU 

ROUTINES:  UAISIK,  UEHALT ,  UALOUM, 
UAKRVL ,  UKMINT,  UCMOPR,  UCBOPR 

TCOM 

CALL  UAAII  (INDX1 ,  INDX2 ,  RES) 

Uses  PD  P-10  arithmetic. 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UAAISS  (SUBROUTINE) 


Add  two  occurrences  of  a  scalar. 

SNDX1  and  SNDX2  must  be  OPRANDS  pointing 
to  the  same  INT  SCALAR  in  STAB,  or  unary  minus 
of  same.  Add  the  two  symbolically,  and  point 
RES  to  the  result.  Error  trap  on  improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  TABL.EQU , 
TYPE.EQU 

ROUTINES:  UAISIS,  UEHALT ,  UALOUM,  UAISOE, 
UCMSKE,  L,  S,  UKMINT,  UCBOPR,  UCMCPY, 
UAMUMN 

TCOM ,  CTABLE 

CALL  UAAISS  (SNDX1,  SNDX2 ,  RES) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UAATPS  (SUBROUTINE) 

Append  term  to  standard  PLUS. 

PNDX  must  point  to  a  standard  PLUS,  or  be  zero. 
TNDX  may  be  any  expression  except  non-standard 
PLUS  or  MINUS.  If  PNDX  is  zero,  a  new  standard 
PLUS  macro  is  formed,  and  PNDX  is  set  to  it. 
TNDX  is  then  added  to  the  PLUS.  If  TNDX  is  an 
analytic  structure,  UAATPS  attempts  to  combine 
it  with  like  occurrences  already  present  in  PNDX. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  TABL.EQU 

ROUTINES: 

TCOM ,  CTABLE 

CALL  UAATPS  (PNDX,  TNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UAISAS  (LOGICAL  FUNCTION) 

Is  this  an  analytic  structure? 

If  CNDX  is  an  analytic  strucutre  --  i.e. ,  an 
OPRAND  pointing  to  an  integer  scalar  or  constant, 
or  TIMES  of  an  integer  scalar  and  a  constant, 
or  unary  minus  of  any  these  —  then 
UAISAS  «-  .TRUE  . ,  else  UAISAS  «- .  FALSE  . 

INSERTS:  None 

ROUTINES:  UAISPR,  UAISIK,  UAISIS,  UAISAT 
None 

UAISAS  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

I 

i 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UAISAT  (LOGICAL  FUNCTION) 

Is  this  an  analytic  TIMES? 

If  CNDX  points  to  an  analytic  TIMES  —  TIMES 
of  an  integer  scalar  and  an  integer  constant  — 
or  unary  minus  of  this  —  then  UAISAT  TRUE . , 
else  UAISAT  «- .  FALSE .  Error  trap  on  bad 
program  structure. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  TABL.EQU 

ROUTINES:  UAISPR,  UALOUM,  L,  UEHALT, 
UCNOCN,  UAISIK,  UAISIS 

TCOM ,  C TABLE 

UAISAT  (CNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UAISIK  (LOGICAL  FUNCTION) 


Is  this  an  integer  constant? 

If  CNDX  is  an  OPRAND  pointing  to  an  INT  element 
in  KTAB,  or  unary  minus  of  one,  then 
UAISIK  <- . TRUE . ,  else  UAISIK  ♦- . FALSE .  Error 
trap  if  CNDX  not  OPRAND. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  KTAB.DEF, 
TABL.EQU,  TYPE  .EQU 

ROUTINES:  L,  U  EH  ALT,  UALOUM 

CTABLE,  KTABLE ,  TCOM 

UAISIK  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 


UAISIS  (LOGICAL  FUNCTION) 


Is  this  an  integer  scalar? 

If  CNDX  is  an  OPRAND  pointing  to  an  INT 
SCALAR  element  in  STAB,  or  unary  minus  of  one, 
then  UAISIS  ♦-.TRUE. ,  else  U  MSIS  ♦-.  FALSE . 
Error  trap  if  CNDX  is  not  OPRAND. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  STAB.DEF, 
TABL.EQU,  TYPE  .EQU 

ROUTINES:  UEHALT ,  L,  UALOUM 

TCOM  ,  C TABLE,  STABLE 

UAISIS  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 


UAISOE  (LOGICAL  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Are  these  OPRAND'S  equal? 

If  CNDX1  and  CNDX2  are  OPRANDS  whose  CTABL 
and  CLINE  fields  are  equal,  UAISOE  «-.TRUE., 
else  UAISOE  FALSE.  Error  trap  if  CNDX1  and 
CNDX2  are  not  OPRANDS. 

INSERTS:  TCOM.DEF,  CTAB.DCL 

ROUTINES:  L,  UEHALT 

TCOM,  C TABLE 

UAISOE  (CNDX1 ,  CNDX2) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE" 
TECHNIQUES: 


*■*"  **$PP 


UAISPM  (LOGICAL  FUNCTION) 

Is  this  old  PLUS  or  MINUS? 

If  CNDX  is  a  PLUS  EXOP  with  CTABL  /  STPLUS, 
or  binary  MINUS,  or  an  OPRAND  pointing  to 
either,  UAISPM  *-  .TRUE. ,  else  UAISPM  <-  .FALSE. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  TABL.EQU 

ROUTINES:  UAISPR,  L,  UAISUM 

TCOM ,  CTABLE 

UAISPM  (CNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UAISPR  (LOGICAL  FUNCTION) 

Is  this  parenthesized? 

If  CNDX  is  an  EXOP  with  CPAR  =  YES,  or  an 
OPRAND  pointing  to  one,  then  UAISPR  =  .TRUE. , 
else  UAISPR  =  .FALSE. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  NOYES. EQU, 
TABL.EQU 

ROUTINES:  L 

TCOM ,  CTABLE 

UAISPR  (CNDX) 


TECHNIQUES: 


program  name.* 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UAISSP  (LOGICAL  FUNCTION) 

Is  this  standard  PLUS? 

If  CNDX  is  a  PLUS  EXOP  with  CTABL  =  STPLUS, 
or  an  OPRAND  pointing  to  one,  then 
UAISSP  .  TRUE . ,  else  UAISSP «- .  FALSE . 

INSERTS:  TCOM.DEF,  CTAB.DEF,  TABL.EQU 

ROUTINES:  L 

TCOM,  CTABLE 

UAISSP  (CNDX) 


PROGRAM  NAME: 


UAISUM  (LOGICAL  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Is  this  a  unary  minus? 

If  CNDX  is  a  MINUS  EXOP  with  one  OPRAND,  or 
an  OPRAND  pointing  down  to  one , 

UAISUM  TRUE. ,  else  UAISUM  ♦- .FALSE . 

INSERTS:  TCOM.DEF,  CTAB.DEF,  NOYES. EQU, 
TABL.EQU 

ROUTINES:  L 

TCOM ,  CTABLE 

UAISUM  (CNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 


UAKRVL  (INTEGER  VALUE) 

Return  value  of  integer  constant. 

CNDX  must  be  an  OPRAND  pointing  to  an 
element  in  KTAB.  UAKRVL  «-contents  of  KVAL 
field.  Error  trap  on  improper  argument. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  KTAB.DEF, 
TABL.EQU 

ROUTINES:  L,  UEHALT 
TCOM,  CTABLE ,  KTABLE 
UAKRVL  (CNDX) 


TECHNIQUES: 


PROGRAM  NAME: 


UALIAT  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Locate  integer  term  of  TIMES. 

CNDX  must  point  to  an  analytic  TIMES. 

UALIAT  is  set  to  the  index  value  of  the  OPRAND 
pointing  to  the  integer  element  of  the  TIMES. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  TABL.EQU 

ROUTINES:  L,  UCNOCN,  UAISIK 

TCOM,  CTABLE 

UALIAT  (CNDX) 
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PROGRAM  NAME: 


UALOUM  (INTEGER  FUNCTION) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Locate  operand  of  unary  minus. 

If  CNDX  is  a  unary  MINUS  or  an  OPRAND 
pointing  to  one,  set  UALOUM  to  the  index 
value  of  its  OPRAND,  else  set  UALOUM  to 
zero. 

INSERTS:  TCOM.DEF,  CTAB.DCL,  TABL.EQU 
ROUTINES:  L,  UAISUM 
TCOM ,  CTABLE 
UALOUM  (CNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


ETERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UALSAS  (INTEGER  FUNCTION) 

Locate  scalar  in  analytic  structure. 

If  CNDX  is  an  analytic  structure  other  than 
an  integer  constant,  set  UALSAS  to  the  index 
value  of  the  OPRAND  pointing  to  tis  STAB 
SCALAR,  else  set  UALSAS  to  ZERO. 

INSERTS:  None 

ROUTINES:  UAISIK,  UAISIS,  UAISAT,  UALSAT, 
UALOUM 

TCOM,  CTABLE 

UALSAS  (CNDX) 
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PROGRAM  NAME: 

PURPOSE: 

FUNCTION: 


EXTERNAL  REFERENCES: 


COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


UALSAT  (INTEGER  FUNCTION) 

Locate  scalar  in  analytic  TIMES. 

CNDX  be  an  analytic  TIMES.  UALSAT  is  set 
to  the  index  value  of  the  OPRAND  pointing  to 
the  STAB  SCALAR  element.  Error  trap  if 
imprope-  argument. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  TABL.EQU 

ROUTINES:  L,  UEHALT ,  UAISIS,  UAISIK, 
UALOUM 

TCOM ,  CTABLE 

UALSAT  (CNDX) 
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PROGRAM  NAME:  UAMUMN  (SUBROUTINE) 


PURPOSE: 


Form  unary  minus . 


FUNCTION:  CNDX  may  be  any  expression.  A  unary  MINUS 

macro  is  formed,  its  OPRAND  is  bound  to  CNDX, 
and  RES  is  pointed  to  the  MTNUS  EXOP.  If 
CNDX  is  a  unary  minus,  then  RES  is  pointed  to 
its  OPRAND.  Error' trap  on  improper  argument. 

EXTERNAL  REFERENCES:  INSERTS:  TCOM.DEF,  CTAB.DEF,  TABL.EQU 

ROUTINES:  UCRTYP,  UAISUM,  UCMSKE,  L,  S, 
UEHALT,  UCMCPY,  UCBOPR,  UCMOPR,  UCMCPY 

COMMON:  TCOM,  C TABLE 


CALLING  SEQUENCE:  CALL  UAMUMN  (CNDX,  RES) 


TECHNIQUES: 
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PROGRAM  NAME: 


UATPLS  (SUBROUTINE) 


PURPOSE: 

FUNCTION: 

EXTERNAL  REFERENCES: 

COMMON: 

CALLING  SEQUENCE: 
TECHNIQUES: 


Transform  PLUS  or  MINUS. 

CNDX  must  be  non-standard  PLUS  or  binary 
MINUS.  A  standard  n-ery  PLUS  is  formed  from 
CNDX,  and  PNDX  is  pointed  to  it.  Error  trap 
on  improper  arguments. 

INSERTS:  TCOM.DEF,  CTAB.DEF,  NOYES. EQU 

ROUTINES:  UAISPM,  UEHALT ,  UGZSTK,  L, 
UGPUSH,  UCNOCN,  UCLTCN,  UCLPOP,  UAATPS, 
UAMUMN,  UGPOP 

TCOM ,  C TABLE 

CALL  UATPLS  (CNDX,  PNDX) 

Tree-walk  with  right-most  elements  being 
stacked  first. 
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APPENDIX  I 


ALLOCATION  TABLES 


Array  Table  Entry  Format 


ARASZE ! 


ARAORG ! 


C2  !  C3 !  C4 !  C5  !  C6 !  C 7 ! 


ARAEXT(l) ! 


ARAEXT(2) ! 


ARAEXT(3) !  ARAEXT(4) ! 


ARAEXT(5) ! 


ARAEXT(6) ! 


ARAEXT(7) ! 


A  —  ARAUSE 

B  —  ARAOVL 

Cl  —  ARAPRM(I) 


Hole  Table  Entry  Format 


A !  AHLBLK !  AHLNXT ! 

AHLDIM !  AHLSZE ! 

Bl!  B2!  B3 !  B4 !  B5 !  B6 !  B7 !  ! 

AHLEXT(l) !  AHLEXT(2) !  AHLEXT(3) !  AHLEXT(4) ! 

AHLEXT(5) !  AHLEXT(6) !  AHLEXT(7) !  ! 

AHLCRD(l) !  AHLCRD(2) !  AHLCRD(3)  ! 

AHLCRD(4) !  AHLCRD(5) !  AHLCRD(6) ! 

AHLCRD(7)  !  I 


—  AHLUSF 

—  AHLPRM(I) 


A 

BI 
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Allocation  Table  Entry  Format 


$999 

t  9 

9  §99 

9 

!  A! 

J 

ALANXT! 

!  Bl!  B2!  B3!  B4 ! 

B5 !  B6! 

B7 ! 

j 

!  ALAEXT(l) ! 

ALAEXT(2) ! 

A  LA  EXT  (3) ! 

ALA  EXT  (4) ! 

!  ALA  EXT  (5) ! 

ALAEXT(6) ! 

ALAEXT(7) ! 

J 

!  ALACRD(l) ! 

ALACRD(2) ! 

ALA  CRD  (3) ! 

!  ALACRD(4) ! 

ALACRD(5) ! 

ALA  CRD  (6) ! 

!  ALACRD(7) ! 

J 

A  —  ALAUSE 

BI  —  ALAPRM(I) 

Block  Table  Entry  Format 


!  A! 

ABLDIM ! 

ABLNAR ! 

ABLNXT ! 

j 

ABLRMN ! 

ABLFST ! 

!  Bl! 

B2 !  B3 !  B4 ! 

B5 !  B6 ! 

B7 ! 

j 

j 

ABLEXT(l) ! 

ABLEXT(2) ! 

ABLEXT(3) ! 

ABLEXT(4) ! 

j 

ABLEXT(5) ! 

ABLEXT(6) ! 

ABLEXT(7)  ! 

A  —  ABLUSE 

BI  —  ABLPRM(I) 


Ly1  •&  *■'  “ 


J 

J 

I 

J 

J 

! 


TBLPNT  Entry  Format 


TBLSTR ! 

NFLDS ! 

NMFLD1 ! 
NMFLD2  ! 

BYTSTR ! 

TBLSZE ! 


TBLSTR 

NFLDS 

NMFLD1 

NMFLD2 

BYTSZE 

TBLSZE 


—  the  start  of  table 

_ number  of  fields  contained  in  an  entry  in  table  1 

—  first  five  ASCII  characters  of  table  name  1 

—  second  five  ASCII  characters  of  table  name 

—  start  of  byte  pointers  for  table  1 

—  size  of  table  1 


-a/f- 


